如何提升Excel计算精度以准确输出前100个2的幂次

方案1：无代码原生函数实现 #

不需要写代码，直接用Excel内置函数就能实现：

• 先将存放结果的整列设置为文本格式：选中目标列→右键点击「设置单元格格式」→数字分类选择「文本」→确认
• 第一个单元格（例：A1）输入 1，对应2^0的结果
• 第二个单元格（例：A2）输入对应公式，下拉到第101行即可得到2^0到2100的全部准确结果：
  如果你用的是Excel 365/2021及以上版本，直接回车即可：
  =TEXTJOIN("",TRUE,BYROW(SEQUENCE(LEN(A1)),LAMBDA(x,LET(s,MID(A1,SEQUENCE(LEN(A1)),1)*2,c,IF(x>1,INT(MID(A1,x-1,1)*2/10),0),MOD(INDEX(s,x)+c,10))))&IF(MID(A1,1,1)*2>=10,INT(MID(A1,1,1)*2/10),""))
  如果你用的是旧版Excel，输入完公式后按Ctrl+Shift+Enter触发数组运算：
  =TEXT(SUM(VALUE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))*2*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),"0")

方案2：VBA自定义大数字乘2函数（更稳定通用） #

如果需要长期使用或者做其他大整数运算，推荐用自定义VBA函数：

1. 按Alt+F11打开VBA编辑器，依次点击「插入」→「模块」，粘贴以下代码：

Function BigIntMultiply2(numStr As String) As String
    Dim i As Long, carry As Integer, currBit As Integer
    carry = 0
    For i = Len(numStr) To 1 Step -1
        currBit = CInt(Mid(numStr, i, 1)) * 2 + carry
        BigIntMultiply2 = CStr(currBit Mod 10) & BigIntMultiply2
        carry = currBit \ 10
    Next
    If carry > 0 Then BigIntMultiply2 = CStr(carry) & BigIntMultiply2
End Function

2. 将文件保存为.xlsm格式（启用宏的工作簿）
3. 还是先将结果列设为文本格式，A1输入1，A2输入=BigIntMultiply2(A1)，下拉到需要的行数即可，支持任意长度的2的幂次计算，完全不会触发精度限制。

原理说明 #

你之前遇到的问题是Excel默认用双精度浮点数存储数值，天生只有15位有效数字，只要参与算术运算就会触发这个限制，「Set Precision as Displayed」选项仅能调整浮点数的显示精度，无法解决底层的精度丢失问题，所以无效。以上两种方案都是基于字符串逐位运算，全程不会转成浮点数，因此不会有精度损失。

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