【VBAマクロ(Excel)】Unicodeエスケープシーケンス変換(デコード)ツール【Office】

Function uniDecode(ByVal strWk As String) As String
    On Error GoTo Err_uniDecode:
    uniDecode = ""

    Dim digit4 As Integer
    digit4 = 4 'Unicode Escape Sequenceは4桁

    Dim i As Integer

    uniFlg = False

    '1文字ずつ処理
    For i = 1 To Len(strWk)
        If (uniFlg = False) And (Mid(strWk, i, 1) = "\") Then
            i = i + 1
            '\uの場合
            If Mid(strWk, i, 1) = "u" Then
                i = i + 1
                uniFlg = True
            Else
                i = i - 1
                uniFlg = False
            End If
        End If
        
        If uniFlg Then
            '4バイト分を16進変換
            uniDecode = uniDecode & ChrW("&H" & Mid(strWk, i, digit4))
            i = i + 3
            uniFlg = False
        Else
            'Unicodeでない場合
            uniDecode = uniDecode & Mid(strWk, i, 1)
        End If
    Next i

    Exit Function
    
Err_uniDecode:
    uniDecode = "uniDecodeエラーが発生しました"
End Function

Sub convUni()
    For i = 2 To 4
        Cells(i, 2).Value = uniDecode(Cells(i, 1).Value)
    Next i
End Sub