【转bin】EXCEL数据转bin

步达硬件2025-06-05 15:36

如果DEC2BIN函数的默认设置无法满足需求（它最多只能处理10位的二进制转换），可以通过VBA宏方法来处理较大数的二进制转换并提取特定位置的数字：

十进制转二进制（不限位宽）

1、打开VBA编辑器（Alt + F11）
在Excel中，通过"开发工具"选项卡（如果没有显示，可以在"文件 - 选项 - 自定义功能区"中勾选"开发工具"），点击"Visual Basic"进入VBA编辑器。
2、编写转换函数代码
在VBA编辑器中插入一个新的模块，然后输入以下代码：
超过32位可以用LongLong数据类型，不过可能某些版本不支持该类型

vbnet 复制代码

Function DEC2BIN_LARGE(num As Long) As String
    Dim binStr As String
    binStr = ""
    Do While num > 0
        binStr = IIf(num Mod 2 = 0, "0", "1") & binStr
        num = Int(num / 2)
    Loop
    DEC2BIN_LARGE = binStr
End Function

或者

vbnet 复制代码

Function DEC2BIN_FULL(num As Long, bits As Integer) As String
    Dim binStr As String
    binStr = ""
    Do While num > 0
        binStr = IIf(num Mod 2 = 0, "0", "1") & binStr
        num = Int(num / 2)
    Loop
    '如果二进制字符串长度小于指定的位数，则在左侧补0
    While Len(binStr) < bits
        binStr = "0" & binStr
    Wend
    DEC2BIN_FULL = binStr
End Function

3、自定义函数进行转换和提取
回到Excel工作表，在某个单元格（假设数据131072在A1单元格）中使用自定义函数=DEC2BIN_LARGE(A1)得到完整的二进制表示。然后按照之前的方法，使用MID函数提取第0 - 9位，如在B1单元格输入=MID(DEC2BIN_LARGE(A1),1,10)