怎么样在VBA中记录每次循环的运行时间？

在Excel VBA中，如果你想记录每次循环的运行时间，你可以对每个循环迭代前后的`Timer`值进行比较。以下是简单的例子，假设你在遍历数组：

Sub RecordLoopTiming()
    Dim arr() As Variant
    ' 假设arr是一个需要遍历的数组
    Dim i As Long, startTime As Double, endTime As Double
    Dim loopDuration As Double
    
    For i = LBound(arr) To UBound(arr)
        ' 开始计时
        startTime = Timer
        
        ' 这里放置你的循环体操作
        ' 示例：arr(i) = SomeComplexOperation(arr(i))

        ' 结束计时
        endTime = Timer
        
        loopDuration = endTime - startTime
        Debug.Print "第 " & i & " 次循环的运行时间为: " & Format(loopDuration, "0.00") ' 秒
    Next i
End Sub

在上面的代码中，`SomeComplexOperation`是你实际想执行的计算，`loopDuration`就是该次循环所花费的时间。每完成一轮循环后，就会打印出对应次数的运行时间。