如何在Excel VBA中对5位字母数字字符串的字节值进行求和

你不需要走转十六进制再转十进制的流程，VBA内置的Asc()函数可以直接返回单字符的ASCII十进制数值（即你需要的字节数值），遍历字符串逐个累加即可，完整可运行代码如下：

Dim strMyString As String
Dim i As Integer
Dim total As Long

strMyString = "ab9cd"
total = 0

' 遍历字符串每一位字符
For i = 1 To Len(strMyString)
    total = total + Asc(Mid(strMyString, i, 1))
Next i

' 可根据需求修改输出逻辑，此处用弹窗展示结果
MsgBox "字节总和为：" & total

结果验证 #

以你提供的示例字符串ab9cd为例，各字符对应字节值如下：

• a: 97
• b: 98
• 9: 57
• c: 99
• d: 100

累加总和为 97+98+57+99+100 = 451，运行上述代码会得到相同结果。如果你后续需要处理双字节的Unicode字符，把Asc()替换为AscW()即可。

内容的提问来源于stack exchange，提问作者Obie