HOME > 即効テクニック > Excel VBA > 文字列操作関連のテクニック > 文字列の中の数字を漢数字に変換する(サンプル2)

即効テクニック

文字列操作関連のテクニック

文字列の中の数字を漢数字に変換する(サンプル2)

(Excel 97)
選択されているセル範囲の数字を全て漢数字に変換します。
まず、Ascワークシート関数を使って、文字列の全角(2バイト)の英数カナ文字を半角(1バイト)の文字に変換します。配列に漢数字をセットして、指定されたセル範囲内のセルの文字を検索して置換するReplaceメソッドを使って英数字を漢数字に置換します。
Sub Sample()
    Dim a, k, i
    
    For Each a In Selection
        a.Value = Application.WorksheetFunction.Asc(a.Value)
    Next

    k = Array("〇", "一", "二", "三", "四", "五", _
                     "六", "七", "八", "九")
                     
    For i = 0 To 9
        Selection.Replace i, k(i)
    Next

End Sub