如何正确使用VBA的Loop函数？循环代码报错寻求解决方案

原代码的核心错误 #

• For Each Time2 < Time1 语法完全错误：For Each 仅用于遍历集合、数组或对象，不能直接用条件表达式作为遍历对象。
• 循环终止条件不明确：既没限制循环次数，也没正确处理Time1 < Time2的返回逻辑。

符合需求的修正代码 #

根据你“最多循环检查两次，当Time1 < Time2时立即返回已执行的循环次数，不满足则继续循环”的需求，这里用Do While结合循环次数限制来实现：

Function Test()
    Dim AmountofLoops As Integer
    Dim Time1 As Double, Time2 As Double
    
    AmountofLoops = 0
    Time1 = 0.5
    Time2 = 0.1
    
    ' 最多循环2次，或者满足Time1 < Time2时提前退出
    Do While AmountofLoops < 2
        AmountofLoops = AmountofLoops + 1 ' 先计数当前循环
        
        ' 检查条件，满足则立即返回
        If Time1 < Time2 Then
            Test = AmountofLoops
            Exit Function
        End If
        
        ' 不满足条件时更新Time1
        Time1 = Time1 - 0.1
    Loop
    
    ' 循环2次后仍不满足条件，返回总次数
    Test = AmountofLoops
End Function

代码逻辑说明 #

• 显式声明变量类型（VBA里建议这么做，避免变体类型的潜在问题）。
• 用Do While控制循环次数上限为2次，每次循环先累加计数。
• 每次循环优先检查Time1 < Time2，满足就返回当前循环次数并退出函数。
• 不满足条件时更新Time1，继续下一次循环；循环满2次后直接返回总次数。

如果你的“循环检查两次”是指必须执行两次循环再判断条件，可调整为以下版本：

Function Test()
    Dim AmountofLoops As Integer
    Dim Time1 As Double, Time2 As Double
    
    AmountofLoops = 0
    Time1 = 0.5
    Time2 = 0.1
    
    ' 执行两次循环
    Do While AmountofLoops < 2
        AmountofLoops = AmountofLoops + 1
        Time1 = Time1 - 0.1
        
        ' 每次循环后检查条件，满足则提前返回
        If Time1 < Time2 Then
            Test = AmountofLoops
            Exit Function
        End If
    Loop
    
    ' 两次循环后返回次数
    Test = AmountofLoops
End Function

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