Sub 指定単語を置き換え置換する①_部分一致() 'A列のAをAAに変える Columns("A:A").Replace What:="A", Replacement:="AA", LookAt:=xlPart End Sub