Excel VBA 漢数字を半角算用数字に変換

質問

アプリから取得したデータの中に、一から十八までの漢数字がありますが、これを半角算用数字に変換するのに[Replace]関数で18行記述していますが、もっと簡単にできる方法がありましたら教えてください。

回答No.1

misatoanna

一から十八までの漢数字がセルに単体で入っているのでしたら、漢数字のセルを一括選択して以下を実行するというのはいかがでしょうか。

Sub Test()
　Dim splA, splB, rng, r
　Const A = "一,二,三,四,五,六,七,八,九,十,十一,十二,十三,十四,十五,十六,十七,十八"
　Const B = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18"
　splA = Split(A, ",")
　splB = Split(B, ",")
　For Each rng In Selection
　　For r = 0 To UBound(splA)
　　　If rng.Value = splA(r) Then Exit For
　　Next
　　rng.Value = splB(r)
　Next
End Sub

お礼

早々に回答いただきましてありがとうございます。

補足

sheet1のセルには、"先手の持駒：角二　金四　銀四　桂二　香三　歩十五"のように入ります。"角"以下が変動します。
これをsheet2のセル1に「角2」、セル2に「金4」のように切り分けます。