エクセルで事務を楽にするプログラマーmoimoiです。
今回は全角と半角の書き換え作業ができるコードをご紹介します。
　一括でインポートをかけたいのに、一部の文字が全角になっているから出来ない時などにも便利です。

１．全角から半角に変換

ActiveSheet.Cells(i, 1) = StrConv(Cells(i, 1), vbNarrow)

2.半角から全角に変換

ActiveSheet.Cells(i, 1) = StrConv(Cells(i, 1), vbWide)

エクセルシートに文字列を貼り付けて一括置き換えができるツールがあれば
一括変換したいときに何かと便利です。

よろしければ下のツールからダウンロードしてみてください。

使い道はいろいろ

エクセルの見栄えをよくするために統一したい方
インポート時のエラーを解消したい方
こちらのツールがあれば一瞬で置き換え可能です。
ぜひお試しあれ！