VBA盈亏平衡宏无法按预期停止问题求助

你的循环停不下来核心有两个原因：

• Excel里的百分比本质是小数（比如0%就是0），但浮点运算的精度问题会导致A10的值永远不会刚好等于0，只会无限接近0，直接用=0判断永远满足不了停止条件。
• 你每次给i加200的步长可能刚好跳过了让A10等于0的临界值，导致循环永远跑下去。

修改后的代码 #

Sub Breakeven()
    Dim i As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Financials")
    
    i = 100000
    ' 设置循环退出条件：A10的绝对值小于0.0001（对应0.01%，可以根据精度调整）
    Do Until Abs(ws.Range("A10").Value) < 0.0001
        i = i + 200
        ws.Cells(14, 9).Value = i
        Debug.Print i
        
        ' 额外加个最大循环次数，防止极端情况死循环
        If i > 1000000 Then ' 假设最大到100万，可按需调整
            MsgBox "已达到最大循环次数，退出"
            Exit Do
        End If
    Loop
End Sub

关键修改说明 #

1. 改用范围判断代替精确等于：用Abs(ws.Range("A10").Value) < 0.0001判断A10是否接近0，Abs取绝对值是因为A10是从负往正递增，过了0之后会变成正，这样正负接近0的情况都能覆盖。你可以根据实际需要调整阈值，比如要更精确就改成1e-6（对应0.0001%）。
2. 去掉Activate/Select：直接通过工作表对象操作单元格，避免激活工作表带来的意外问题，代码更稳定高效。
3. 增加最大循环次数限制：防止因为某些极端情况（比如A10永远不会接近0）导致无限循环，给自己留个退出的后路。

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