全角英語や数字、それに特定の記号を半角変換

全角英語や数字、それに特定の記号を半角変換

繰り返し処理で、スマートに書きたいけど、そんな技術ないから、とりあえず、同じモジュール内で、利用することを前提に、Subの外に、Dimで変数定義して、あまり歓迎されないけど、Callで呼び出す。
速度的にどうかと思うが、回せる分は、これで。

----- べんりあつめ。-----

Dim han
Sub syori()
'ここに、必要なコードを入力
Call zenhan
'ここに、必要なコードを入力
End Sub
Sub zenhan()
han = Replace(han, "Ａ", "A")
han = Replace(han, "Ｂ", "B")
han = Replace(han, "Ｃ", "C")
han = Replace(han, "Ｄ", "D")
han = Replace(han, "Ｅ", "E")
han = Replace(han, "Ｆ", "F")
han = Replace(han, "Ｇ", "G")
han = Replace(han, "Ｈ", "H")
han = Replace(han, "Ｉ", "I")
han = Replace(han, "Ｊ", "J")
han = Replace(han, "Ｋ", "K")
han = Replace(han, "Ｌ", "L")
han = Replace(han, "Ｍ", "M")
han = Replace(han, "Ｎ", "N")
han = Replace(han, "Ｏ", "O")
han = Replace(han, "Ｐ", "P")
han = Replace(han, "Ｑ", "Q")
han = Replace(han, "Ｒ", "R")
han = Replace(han, "Ｓ", "S")
han = Replace(han, "Ｔ", "T")
han = Replace(han, "Ｕ", "U")
han = Replace(han, "Ｖ", "V")
han = Replace(han, "Ｗ", "W")
han = Replace(han, "Ｘ", "X")
han = Replace(han, "Ｙ", "Y")
han = Replace(han, "Ｚ", "Z")
han = Replace(han, "ａ", "a")
han = Replace(han, "ｂ", "b")
han = Replace(han, "ｃ", "c")
han = Replace(han, "ｄ", "d")
han = Replace(han, "ｅ", "e")
han = Replace(han, "ｆ", "f")
han = Replace(han, "ｇ", "g")
han = Replace(han, "ｈ", "h")
han = Replace(han, "ｉ", "i")
han = Replace(han, "ｊ", "j")
han = Replace(han, "ｋ", "k")
han = Replace(han, "ｌ", "l")
han = Replace(han, "ｍ", "m")
han = Replace(han, "ｎ", "n")
han = Replace(han, "ｏ", "o")
han = Replace(han, "ｐ", "p")
han = Replace(han, "ｑ", "q")
han = Replace(han, "ｒ", "r")
han = Replace(han, "ｓ", "s")
han = Replace(han, "ｔ", "t")
han = Replace(han, "ｕ", "u")
han = Replace(han, "ｖ", "v")
han = Replace(han, "ｗ", "w")
han = Replace(han, "ｘ", "x")
han = Replace(han, "ｙ", "y")
han = Replace(han, "ｚ", "z")
han = Replace(han, "１", "1")
han = Replace(han, "２", "2")
han = Replace(han, "３", "3")
han = Replace(han, "４", "4")
han = Replace(han, "５", "5")
han = Replace(han, "６", "6")
han = Replace(han, "７", "7")
han = Replace(han, "８", "8")
han = Replace(han, "９", "9")
han = Replace(han, "０", "0")
han = Replace(han, "！", "!")
han = Replace(han, "＃", "#")
han = Replace(han, "＄", "$")
han = Replace(han, "％", "%")
han = Replace(han, "＆", "&")
han = Replace(han, "／", "/")
han = Replace(han, "＠", "@")
han = Replace(han, "　", " ")
End Sub