VBA中步长0.001的For Next循环生成超出预期的大量值

核心问题：无限循环的原因 #

你声明i为Long（长整型），但循环使用了带小数的步长0.001。Long类型仅支持整数，会自动截断小数部分，导致i始终为0，循环条件i <= 2.626永远成立，进而触发无限循环。

修正与优化方案 #

1. 修正变量类型：将i改为Double类型，支持小数运算，确保循环能正常终止。
2. 避免Select/ActiveCell：直接通过单元格对象操作，提升运行效率且避免选中其他单元格引发的错误。
3. 优化运行速度：关闭屏幕更新和自动计算，减少运行时的资源消耗。

修正后的代码 #

Sub simp3()
    Dim i As Double ' 改为Double类型，支持小数步长
    Dim max1 As Double ' Max返回值可能为小数，用Double适配
    Dim max2 As Double
    Dim r1 As Range
    Dim r2 As Range
    Dim targetCell As Range ' 用变量跟踪目标单元格，替代Select
    
    Set r1 = Range("AP7:AP26500")
    Set r2 = Range("AS7:AS2633")
    Set targetCell = Range("AS7") ' 初始化目标单元格
    
    ' 关闭不必要的系统操作，提升运行速度
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    ' 循环生成2627个值（含0和2.626），若需2626个可改为i=0.001 To 2.626 Step 0.001
    For i = 0 To 2.626 Step 0.001
        Range("C32") = i
        max1 = Application.WorksheetFunction.Max(r1)
        targetCell.Value = max1
        Set targetCell = targetCell.Offset(1, 0) ' 移动到下一行
    Next i
    
    max2 = Application.WorksheetFunction.Max(r2)
    Range("AS3").Value = max2
    
    ' 恢复系统默认设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

额外说明 #

原预期生成2626个值，当前循环会生成2627个（包含0和2.626）。如果需要严格2626个值，可将循环起始值改为0.001，即For i = 0.001 To 2.626 Step 0.001。

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