A列で「赤」という文字を「青」に置換します。 例えば「赤」も「赤い」という文字もそれぞれ「青」「青い」になります。 Sub Sample89() Range("A:A").Replace "赤", "青", xlPart End Sub