エクセルで住所の半角数字を漢数字に一括変換するには？

表示形式=TEXT(C1,"[DBNum1]G/標準")などはＣ１セルが半角数字で無いと上手く行かないようです。住所を数字部分と漢字部分に部分に別セルに分けられれば使えるかもしれない。 住所漢字部分と丁目番地が１セルに混在しているときのために、数字を漢数字に変える、ユーザー定義の関数を作ってみました。 ツール－マクロ－ＢＶＥでＶＢＥの画面になる。 そこで挿入－標準モジュールで出てくる画面に下記を コピペする。 Function kansuj(a) tb = Array("〇", "一", "ニ", "三", _ "四", "五", "六", "七", "八", "九") For i = 1 To Len(a) s = Mid(a, i, 1) '---ハイフン If s = "-" Then st = st & "－" GoTo p01 End If '----数字 全角、半角 If Is