excel - 使用 EXCEL 将十六进制字符转换为 ASCII 字符

Question

我在论坛上找到了一些如下所示的代码，它将使用 VBA 脚本将 ASCII 代码转换为十六进制字符，是否可以将十六进制字符转换为 ASCII 字符？
我的代码如下

 Sub AsciiToHex()
 Dim strg As String
 Dim tmp As String

 strg = Worksheets("Sheet1").Range("A1")
 Worksheets("Sheet1").Range("A5").value = strg

 tmp = ""
 For i = 1 To Len(strg)
 tmp = tmp & hex((Asc(Mid(strg, i, 1))))
 Next

 Worksheets("Sheet1").Range("A6").value = tmp

 End Sub

我试图将 hex((Asc(Mid(strg, i, 1)))) 交换为 Asc((hex(Mid(strg, i, 1)))) 但这不起作用。任何帮助，将不胜感激
样本数据
十六进制格式
48 65 6C 6C 6F
转换后会如下
ASCII 格式
你好

Answer 1

十六进制转字符串

Function HexToString(InitialString As String) As String
    Dim i As Long
    For i = 1 To Len(InitialString) Step 2
        HexToString = HexToString & Chr("&H" & (Mid(InitialString, i, 2)))
    Next i
End Function

Function StringToHex(InitialString As String) As String
    Dim i As Long
    For i = 1 To Len(InitialString)
        StringToHex = StringToHex & Hex(Asc(Mid(InitialString, i, 1)))
    Next i
End Function