如何在VBA、Excel中对每个循环的结果求和？

Sub SumLoopResults()
    Dim total As Double
    Dim i As Integer
    
    total = 0
    
    For i = 1 To 10 ' 假设有10个循环
        ' 在这里执行每个循环的操作
        ' 假设每个循环的结果存储在变量result中
        Dim result As Double
        result = i * 2 ' 这里只是一个示例操作，可以根据实际需求进行修改
        
        total = total + result ' 将每个循环的结果累加到总和中
    Next i
    
    ' 输出总和
    MsgBox "总和为：" & total
End Sub