求助：VBA实现A列从0以0.1步长填充至B1值，代码无法终止

嘿，这个问题我之前踩过坑！大概率是浮点精度误差在搞鬼——毕竟0.1这种十进制小数在二进制里是无限循环的，累加的时候会产生微小的偏差，导致程序判断“是否达到B1设定值”时出错，要么提前终止，要么无限循环停不下来。

先看看你可能写的错误代码（典型问题版本） #

Sub FillNumbers()
    Dim startVal As Double
    Dim stepVal As Double
    Dim targetVal As Double
    Dim currentRow As Integer
    
    startVal = 0
    stepVal = 0.1
    targetVal = Range("B1").Value
    currentRow = 1
    
    Do While startVal <= targetVal
        Cells(currentRow, 1).Value = startVal
        startVal = startVal + stepVal
        currentRow = currentRow + 1
    Loop
End Sub

比如当B1设为1.0时，累加多次0.1后，startVal实际存储的可能是1.0000000000000002或者0.9999999999999998，这种微小偏差会让循环条件的判断逻辑混乱，导致停不下来或者提前终止。

两种可靠的解决方案 #

方案1：用整数计算规避浮点误差（推荐）

把数值放大10倍，用整数来循环累加，最后再除以10，彻底避免浮点精度问题：

Sub FillNumbersFixed()
    Dim targetVal As Double
    Dim totalSteps As Integer
    Dim i As Integer
    
    targetVal = Range("B1").Value
    ' 计算总步数：目标值除以0.1，加极小值避免浮点误差导致少算一步
    totalSteps = CInt(targetVal / 0.1 + 0.000001)
    
    ' 从0到总步数，逐个生成精确值
    For i = 0 To totalSteps
        Cells(i + 1, 1).Value = i * 0.1
    Next i
End Sub

这种方法的好处是每个生成的数值都在Excel的显示精度内，而且直接通过步数控制循环，完全不会出现无限循环的问题。

方案2：给判断条件加容差

如果坚持用Do循环的方式，可以给判断条件加一个极小的容差，抵消浮点累加的偏差：

Sub FillNumbersWithTolerance()
    Dim startVal As Double
    Dim stepVal As Double
    Dim targetVal As Double
    Dim currentRow As Integer
    Dim tolerance As Double
    
    startVal = 0
    stepVal = 0.1
    targetVal = Range("B1").Value
    currentRow = 1
    tolerance = 0.000001 ' 设置极小容差，适配浮点误差
    
    Do While startVal <= targetVal + tolerance
        Cells(currentRow, 1).Value = startVal
        startVal = startVal + stepVal
        currentRow = currentRow + 1
    Loop
End Sub

容差的作用是：当startVal因为浮点误差略大于targetVal时，只要差值在容差范围内，循环依然会终止，不会无限跑下去。

额外注意点 #

• 可以提前加个判断，确保B1的值≥0，避免出现负数循环的情况；
• 如果B1的数值是0.1的非整数倍（比如1.23），方案2会更灵活，能自动停在最接近且不超过目标值的位置。

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