Sub スペースSPを置き換え置換する() 'A列の半角スペース「 」を「空白」に変える Columns("A:A").Replace What:=" ", Replacement:="空白", LookAt:=xlPart End Sub