カナ文字一括半角変換方法

質問

エクセルでカナ全角入力した文章を
一括で半角に変換できる方法を教えて下さい。

回答No.1

hirumin · ベストアンサー

ASC関数を使えば、全角カナを半角カナにできます。
これを利用できませんか？

ASC("ＥＸＣＥＬ") = "EXCEL"

[A1]＝"アイウ"
ASC(A1) = "アイウ"

回答No.2

dell_OK

StrConv関数でできます。

Cells(1, 1) = StrConv(Cells(1, 1), vbNarrow)

使い方はこんな感じです。
マクロで文章全体をループする処理を作成してください。