如何在Excel中将4字节十六进制数据转换为浮点数？

因为Excel没有原生的十六进制转浮点数函数，用VBA自定义函数是轻量且符合需求的方案，无需额外程序：

步骤1：添加VBA自定义函数 #

1. 打开你的Excel文件，按下Alt+F11打开VBA编辑器。
2. 在左侧项目栏右键点击你的工作簿，选择插入→模块。
3. 将以下代码粘贴到模块中：

Function HexToSingle(hexStr As String, Optional isLittleEndian As Boolean = True) As Single
    ' 检查输入是否为4字节（8位十六进制）
    If Len(hexStr) <> 8 Then
        HexToSingle = CVErr(xlErrValue)
        Exit Function
    End If
    
    Dim byteArr(3) As Byte
    Dim i As Integer
    Dim tempChunk As String
    
    ' 根据字节序拆分十六进制字符串到字节数组
    For i = 0 To 3
        If isLittleEndian Then
            ' 小端模式：从右往左取每两位（低字节在前）
            tempChunk = Mid(hexStr, 7 - 2 * i, 2)
        Else
            ' 大端模式：从左往右取每两位（高字节在前）
            tempChunk = Mid(hexStr, 1 + 2 * i, 2)
        End If
        byteArr(i) = Val("&H" & tempChunk)
    Next i
    
    ' 转换字节数组为单精度浮点数
    HexToSingle = ByteArrayToSingle(byteArr)
End Function

Private Function ByteArrayToSingle(byteArr() As Byte) As Single
    Dim memPtr As LongPtr
    memPtr = VarPtr(byteArr(0))
    ByteArrayToSingle = CopyMemorySingle(memPtr)
End Function

' 64位Excel兼容的内存复制声明
Private Declare PtrSafe Function CopyMemorySingle Lib "kernel32" Alias "RtlMoveMemory" (ByVal dest As LongPtr) As Single

步骤2：在Excel单元格中使用函数 #

• 针对你的示例输入"d162c240"（小端字节序，Wireshark捕获的多数协议默认小端），直接调用：

  =HexToSingle("d162c240")
  

  会返回6.075。
• 如果你的十六进制字符串是高字节在前的拼接（比如"c240"&"d162"得到"c240d162"），需要指定大端模式：

  =HexToSingle("c240d162", FALSE)
  

  注意：如果返回结果不符，切换isLittleEndian参数的TRUE/FALSE即可适配对应的字节序。

额外说明 #

• 如果需要转换双精度浮点数（8字节，16位十六进制），可以参考上述代码修改为HexToDouble函数，只需调整字节数组长度为7到0，以及对应的内存复制函数。
• 函数会对输入长度做校验，非8位的十六进制字符串会返回错误值，确保输入格式正确。

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