Excelで英数字のみ半角に変換する方法

Excelの関数にはASC()があり、全角文字を半角に変換します。この場合、カタカナも半角カナ文字へ変換されてしまいます。

例）A1に「Ａ１のセル」と入力し、Ｂ1セルに「=ASC(A1)」と入力する。
　　結果　⇒　A1のｾﾙ

私が調べたところマクロを使うしかありません。（もし、マクロ以外でもっと簡単な方法があれば教えてください）
以下コードをマクロにコピペし登録してください。

Function ASC2(ByVal str As String) As String

Dim length As Integer
Dim char As String

length = Len(str)

Do While str <> ""
  char = Left(str, 1)
  If (char >= "０" And char <= "９") Or (char >= "Ａ" And char <= "Ｚ") Or (char >= "ａ" And char <= "ｚ") Then
    ASC2 = ASC2 & StrConv(char, vbNarrow)
  Else
    ASC2 = ASC2 & char
  End If
  str = Mid(str, 2)
Loop
End Function

これで先程の例でいうとC1セルに「=ASC2(A1)」と入力すると以下の石化になります。

　結果　⇒　A1のセル