全角カタカナや全角半角の小書き文字等の様式を小書き文字無しの半角カタカナに変換する関数です。金融機関の振込等はカタカナで入力しますが、半角小書き文字（ャュョ）等はﾔﾕﾖと表示しなければなりません。また郵便番号等のデータも半角小書き文字で提供されています、このようなデータの検索等に使用するのに便利です。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「KataHalf」が使用できます。
使い方は
ワークシート上で = KataHalf(カタカナ文字列)の関数として使用できます。
【例】
KataHalf (“キャラクター”) → ｷﾔﾗｸﾀｰ
KataHalf (“ｳﾞｫﾙﾌｶﾞﾝｸ ｱﾏﾃﾞｳｽ ﾓｰﾂｧﾙﾄ”) → ｳﾞｵﾙﾌｶﾞﾝｸ ｱﾏﾃﾞｳｽ ﾓｰﾂｱﾙﾄ
Function KataHalf(S)
’ 全角カタカナ小書き文字（捨てカナ）を半角カタカナに変換にする関数
On Error GoTo EXITFUN
Dim Kata1 As Variant
Dim Kata2 As Variant
Dim i As Long
S = StrConv(S, vbNarrow)
Kata1 = Split(“ｧ,ｨ,ｩ,ｪ,ｫ,ｯ,ｬ,ｭ,ｮ”, “,”)
Kata2 = Split(“ｱ,ｲ,ｳ,ｴ,ｵ,ﾂ,ﾔ,ﾕ,ﾖ”, “,”)
For i = 0 To 8
S = Replace(S, Kata1(i), Kata2(i))
Next
KataHalf = S
EXITFUN:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。