エクセル 全角半角スペースを削除 備忘録

選択範囲の全角と半角スペースを削除するサンプルマクロ


標準モジュールで


Sub 全角スペース削除()
Dim c As Range
Worksheets("Sheet1").Activate
Range("A1", "B3").Select
For Each c In Selection
 c.Value = Replace(c.Value, "　", "")
 c.Value = Replace(c.Value, " ", "")
Next
End Sub

文字間にスペースが入っているなどの処理に利用する。
この場合は，A1からB3のセル範囲を選択している。