選択されているセル範囲の数字を全て漢数字に変換します。
　サンプルマクロは、まず全角数字を半角に置き換えます。
　次にセル内の文字に数字があれば、漢数字にして変数myMojiに格納し、
セルの値を変数myMojiにしています。

Sub Sample()

  Dim a      As Range
  Dim i      As Integer
  Dim Data   As String
  Dim myMoji As String

  myMoji = ""

  For Each a In Selection
      a.Value = Application.WorksheetFunction.Asc(a.Value)

      For i = 1 To Len(a)
        If IsNumeric(Mid$(a, i, 1)) Then
            Data = WorksheetFunction.Text(Mid$(a, i, 1), "[DBnum1]0")
        Else
            Data = Mid$(a, i, 1)
        End If

        myMoji = myMoji & Data
      Next

      a.Value = myMoji
      myMoji = ""
  Next

End Sub