如何用VBA移除十六进制字符串的尾部零？

Trim函数只处理空格，对字符0完全无效，所以得用自定义逻辑来处理。下面是专门针对这个需求写的VBA函数：

Function RemoveTrailingHexZeros(hexStr As String) As String
    Dim i As Integer
    ' 从字符串末尾逆向遍历，定位第一个非0字符的位置
    For i = Len(hexStr) To 1 Step -1
        If Mid(hexStr, i, 1) <> "0" Then
            RemoveTrailingHexZeros = Left(hexStr, i)
            Exit Function
        End If
    Next i
    ' 处理全为0的情况，这里返回空字符串，要保留单个0就改成"0"
    RemoveTrailingHexZeros = ""
End Function

使用步骤： #

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 右键当前工作簿，选「插入」→「模块」
3. 把上面的代码粘贴到模块窗口里
4. 返回Excel，在目标单元格输入公式：=RemoveTrailingHexZeros(A1)（将A1替换为你的十六进制字符串所在单元格）

测试效果： #

输入字符串：4153523132633403277E7F0000000000000000000000000000
返回结果：4153523132633403277E7F

特殊情况调整： #

如果输入的字符串全是0（比如000000），当前函数返回空字符串。要是你需要保留一个0，把函数最后一行改成RemoveTrailingHexZeros = "0"即可。

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