Sub 英字と数字の半角を全角に変換する()
文字列 = Range("A1")
'文字列を1文字目から1文字づつ、半角→全角に置換
For 何文字目 = 1 To Len(文字列)
'[A-Z]アルファベットが半角の場合、または
'[0-9]数値が半角の場合、または
If Mid(文字列, 何文字目, 1) Like "[A-Z]" _
Or Mid(文字列, 何文字目, 1) Like "[0-9]" Then
'半角→全角に置換
Mid(文字列, 何文字目, 1) = StrConv(Mid(文字列, 何文字目, 1), vbWide)
End If
Next
Range("A1") = 文字列
End Sub