VBA 全角半角混在の英数字を統一する(Str Conv関数)

入力時のExcel環境によりアルファベットが半角であったり全角であったり統一性がないデータを集計すると誤った集計がされてしまうことがある。

特に複数のデータベースを使って作業をする場合は文字列を統一しておくこと。

 

Sub Macro21()
Cells(2, 1) = StrConv(Cells(1, 1), 8)
End Sub

1丁目246番地の3
1丁目246番地の3

 

Str Conv関数

StrConv(string、 Conversion)

string:変換したい文字列

Conversion:変換したい形式(引数:指定する値の合計値)

定数はVBA記述時、リストアップされ値に変えて入力できます

定数 説明
vbUpperCase 1 文字列を大文字に変換
vbLowerCase 2 文字列を小文字に変換
vbProperCase 3 文字列内のすべての単語の最初の文字を大文字に変換
vbWide 4 文字列の半角 (1 バイト) 文字を全角 (2 バイト) 文字に変換
vbNarrow 8 文字列の全角 (2 バイト) 文字を半角 (1 バイト) 文字に変換
vbKatakana 16 文字列に含まれるひらがなの文字をカタカナに変換
vbHiragana 32 文字列のカタカナ文字をひらがなに変換
vbUnicode 64 システムの既定のコードページを使用して、文字列をUnicodeに変換
vbFromUnicode 128 文字列を Unicode からシステムの既定のコードページに変換