我正在尝试将 12 位八进制数转换为二进制数
但看起来 excel 的内置函数 OCT2Bin 不适用于大于 517 的数字
所以我尝试拆分数字并将它们连接起来，但没有成功
我试过了
=OCT2BIN(MID(A2,1,2))&OCT2BIN(MID(A2,3,2))&OCT2BIN(MID(A2,5,2))&OCT2BIN(MID(A2,7,2))&OCT2BIN(MID(A2,9,2))&OCT2BIN(MID(A2,11,2))
例如数字的八进制转二进制
123456765432
是
1010011100101110111110101100011010
但我的公式正在返回
101011100101110111110101100110100
我知道公式不起作用，因为我不应该破坏数字并将它们连接起来。但我不确定如何在excel中处理它
有没有办法将 12 位八进制数转换为二进制？
【问题讨论】：
标签： vba excel excel-formula
由于excel-vba 也被标记，因此使用 VBA 可以更一般地解决这个问题。
Public Function myDec2Bin(ByVal decValue As Double) As String
Select Case decValue
Case 0
myDec2Bin = "0"
Case 1
myDec2Bin = "1"
Case Else
myDec2Bin = myDec2Bin(Int(decValue / 2)) & IIf(decValue / 2 = Int(decValue / 2), "0", "1")
End Select
End Function
Public Function myOct2Dec(octValue As String) As Double
Dim decValue As Double
For i = 0 To Len(octValue) - 1
decValue = decValue + Mid(octValue, i + 1, 1) * (8 ^ (Len(octValue) - 1 - i))
Next
myOct2Dec = decValue
End Function
Public Function myOct2Bin(octValue As String) As String
Dim decValue As Double
decValue = myOct2Dec(octValue)
myOct2Bin = myDec2Bin(decValue)
End Function
那些UDF 都可以用作单元格公式，例如：
=myOct2Bin(A2)
【讨论】：
连接函数没有问题，因为八进制数中的每个数字恰好代表二进制中的 3 位数字。 您的问题是省略了前导零，例如在您的示例中 34o = 011100 但不返回第一个 0，因此您只连接 11100。 OCT2BIN 函数有另一个参数，您可以在其中确定返回的位数：
OCT2BIN(34) = 11100
OCT2BIN(34, 6) = 011100
就性能而言：您可以一次转换 3 个八进制数字，而不仅仅是 2 个。
【讨论】：