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