文字列の漢数字を半角数字に変換する関数です。
十百千万等位の漢数字は変換されません。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「 KanNumA1 」が使用できます。
使い方は
ワークシート上で = KanNumA1 (文字列)の関数として使用できます。
【例】
KanNumA1 (“一五丁目”) → 15丁目
KanNumA1 (“平成一五年三月三日”) → 平成15年3月3日
Function KanNumA1(S)
’漢数字を半角数字にする関数（位の漢字無しの場合）
On Error GoTo EXITFUN
Dim KanNum As Variant
KanNum = Split(“〇,一,二,三,四,五,六,七,八,九”, “,”)
For Num = 0 To 9
S = Replace(S, KanNum(Num), Num)
Next
If IsNumeric(S) = True Then
KanNumA1 = Val(S)
Else
KanNumA1 = S
End If
EXITFUN:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。