Question

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

我在A1之后的Sting：BFEBFBFF000406E3

我在A6填写的代码：424645424642464000000000000000000000

我正在使用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

工作表（“List1”）。范围（“A6”）。NumberFormat =“@”＆amp; tmp完美地工作，谢谢Scott Craner

VBA Excel ascii到hex

1 个答案: