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