選択されているセル範囲の数字を全て漢数字に変換します。
　まず、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