excel - VBA Excel ascii转十六进制

Question

我在使用 VBA 将 ascii 转换为十六进制时遇到问题。我需要将一个字符串转换为十六进制，它将字母和数字组合在一起。
但是我的代码只转换了大约一半的字符串。

我在 A1 中有以下 Sting:BFEBFBFF000406E3

我填写A6的代码:42464542464246400000000000000000

我正在使用 http://www.convertstring.com/cs/EncodeDecode/HexDecode检查它是否正常并在那里翻译为:42464542464246463030303430364533DA

请问我有什么问题吗？

Sub strg()

Dim strg As String
Dim tmp As String

strg = Worksheets("List1").Range("A1")
Worksheets("List1").Range("A5").Value = strg

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


Worksheets("List1").Range("A6").Value = tmp

End Sub

感谢您的任何帮助。

Answer 1

Worksheets("List1").Range("A6").NumberFormat = "@"& tmp 工作完美，谢谢 Scott Craner