半角カナを全角に、全角英数字を半角にだいたい変換する関数 Excel 用

NormalizeString.vba

Private Function NormalizeString(ByVal source As Variant) As Variant

    Dim i As Integer
    Dim c As Variant
    Dim result As Variant
    
    result = ""
    For i = 1 To Len(source)
        c = StrConv(source, vbWide)
        If Mid(c, i, 1) Like "[Ａ-ｚ]" Or Mid(c, i, 1) Like "[０-９]" Or Mid(c, i, 1) Like "－" Then
            result = result & StrConv(Mid(c, i, 1), vbNarrow)
        Else
            result = result & Mid(c, i, 1)
        End If
    Next i
    
    NormalizeString = result
End Function