如何让Excel 2016将单字（两字节）十六进制转为带符号十进制？

要让Excel把两字节（16位）十六进制值转换成对应的有符号十进制数（比如0xFFFF输出-1而非65535），可以通过公式或者自定义VBA函数两种方式实现，下面分别详细说明：

方法一：使用Excel公式直接转换 #

Excel自带的HEX2DEC函数会把十六进制转成无符号十进制，我们只需要对转换后的数值做简单判断和调整，就能得到16位有符号的结果。

假设你的十六进制值（比如FFFF或0xFFFF）放在单元格A1中，使用以下公式：

处理不带0x前缀的十六进制值 #

=IF(HEX2DEC(A1)>=32768, HEX2DEC(A1)-65536, HEX2DEC(A1))

处理带0x前缀的十六进制值 #

如果输入的是带0x前缀的格式（比如0xFFFF），先通过SUBSTITUTE去掉前缀，再用LET函数避免重复计算：

=LET(decVal, HEX2DEC(SUBSTITUTE(A1,"0x","")), IF(decVal>=32768, decVal-65536, decVal))

公式逻辑解释：

1. HEX2DEC将十六进制转成无符号十进制，比如FFFF会得到65535；
2. 16位有符号整数的最大值是32767，如果转换后的值≥32768，说明这是一个负数，需要减去65536（即2¹⁶）得到对应的补码值；
3. 小于32768的数值直接返回，就是正数或0。

测试结果示例：

• 输入FFFF → 返回-1
• 输入7FFF → 返回32767（16位有符号最大值）
• 输入8000 → 返回-32768（16位有符号最小值）
• 输入0000 → 返回0

方法二：自定义VBA函数（更便捷） #

如果需要频繁转换，写一个自定义函数会更省心，步骤如下：

1. 打开Excel，按下Alt + F11打开VBA编辑器；
2. 在左侧项目窗口中，右键点击你的工作簿名称，选择插入 → 模块；
3. 在弹出的代码窗口中粘贴以下代码：

Function HEX2SIGNED16(hexVal As String) As Integer
    ' 移除输入中的0x前缀（不区分大小写）
    hexVal = UCase(Replace(hexVal, "0x", ""))
    ' 将十六进制字符串转换为无符号长整型
    Dim unsignedNum As Long
    unsignedNum = CLng("&H" & hexVal)
    ' 转换为16位有符号整数（VBA的CInt自动处理补码转换）
    HEX2SIGNED16 = CInt(unsignedNum)
End Function

4. 关闭VBA编辑器，回到Excel界面；
5. 在单元格中直接调用函数，比如：

=HEX2SIGNED16(A1)

这个函数支持两种输入格式：带0x前缀（如0xFFFF）或不带前缀（如FFFF），都会正确返回-1。

⚠️ 注意：保存工作簿时，需要选择**Excel启用宏的工作簿（*.xlsm）**格式，否则自定义函数会丢失。

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