エクセルシートを半角・スペースなしに

質問

エクセルのシートに文字列・数字が入力されています。しかし文字や数字の間に空白があったり、全角・半角がバラバラに入力さています。

これを全て、半角でスペースをなくすにはVBAにどのように書けばよいのでしょうか？

回答No.2

kmetu · ベストアンサー

一部訂正

Selection.Replace What:=" ", Replacement:=""

のほうがいいかも

お礼

ありがとうございます。参考になりました。

回答No.1

kmetu

Replace メソッドで空白を削除する
Worksheets("Sheet1").Range("A:Z").Replace What:=" ", Replacement:=""

StrConvで全角を半角に
For Each mRange In Selection
mRange.Value = StrConv(mRange.Value, vbNarrow)
Next

でいかがでしょう