小叔部分后面的16位乘1后怎么显示结果不对？

还有如何取得科学计数法的幂值？

2科学计数的小数部分如何得到，不要幂，不要整数

上面是想要计算一下浮点数转16进制的过程

这个单元格的值结果就不对

'10110.11010111000010100011110101110000=22.839999999851
Option Explicit
Sub abc()
　Dim i, bin, dec, t
　bin = "10110.11010111000010100011110101110000"
　bin = Split(bin, ".")
　For i = 1 To Len(bin(0)) '整数
　　t = Val(Mid(bin(0), i, 1))
　　dec = dec + t * 2 ^ (Len(bin(0)) - i)
　Next
　If UBound(bin) = 1 Then '小数
　　For i = 1 To Len(bin(1))
　　　t = Val(Mid(bin(1), i, 1))
　　　dec = dec + t * 2 ^ -i
　　Next
　End If
　Debug.Print Join(bin, ".") & "=" & dec
End Sub

幂估计就是数的位数-1的吧，20000=2*10^(5-1)
如果带小数的先判断一下，再取整数位数
如果Dec->Hex的不停的除16就可以了，N进制方法相同。Bin->Hex可以先转为Dec再转Hex或者4位Bin(0-F)->Hex。

这里合并可以看右上角公式，是整数加部分和小数部分加小数点连接起来的
合并后下面的去有效值前0，是对合并值进行了乘1，但是小数点后面的结果显示的不准确，有没有什么办法呢

'表格中的幂指数是针对于10进制数的，所以E列这表示方法是错的，因为它是二进制数
'如果一定要用指数来表示那需要移位，就是/2或*2，估计还没有这表示方法的
'浮点计算会有误差的，数的精度决定的，并不是计算方法
Option Explicit
Sub abc()
　Dim a, i, j, t, n
　a = [a1].CurrentRegion.Resize(, 5).Value
　For i = 2 To UBound(a)
　　For j = 1 To Len(a(i, 1)) '整数
　　　t = Val(Mid(a(i, 1), j, 1))
　　　n = t * 2 ^ (Len(a(i, 1)) - j) + n
　　Next
　　For j = 1 To Len(a(i, 2)) '小数
　　　t = Val(Mid(a(i, 2), j, 1))
　　　n = t * 2 ^ -j + n
　　Next
　　a(i, 3) = CStr(n): n = 0
　　For j = 1 To Len(a(i, 1))
　　　If Mid(a(i, 1), j, 1) <> "0" Then Exit For
　　Next
　　If j < Len(a(i, 1)) + 1 Then
　　　a(i, 4) = Mid(a(i, 1), j) & "." & a(i, 2)
　　Else
　　　a(i, 4) = "0." & a(i, 2)
　　End If
　　If left(a(i, 4), 1) <> "0" Then '整数部分>0
　　　n = InStr(a(i, 4), ".")
　　　a(i, 5) = Replace(a(i, 4), ".", vbNullString)
　　　a(i, 5) = left(a(i, 5), 1) & "." & Mid(a(i, 5), 2) & "E" & n - 2
　　Else
　　　For j = 3 To Len(a(i, 4))
　　　　If Mid(a(i, 4), j, 1) <> "0" Then
　　　　　a(i, 5) = Mid(a(i, 4), j, 1) & "." & Mid(a(i, 4), j + 1) & "E" & 2 - j
　　　　　Exit For
　　　　End If
　　　Next
　　End If
　Next
　[a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

你的d列和e列的公式用的什么？
1为什么小数点后15后面的可以显示？我查了百度说15位之后的无法计算，无法输入，我试了确实是
2你的d列的连接是怎么连接的，第三行的前导0怎么去掉的？

你用excel表格做出来了浮点数转换？