VBA循环结合WorksheetFunction.Sum计算梯形积分出错求助

你的代码问题很明确：每次循环都直接给Integral变量赋值，覆盖了上一次循环的结果，所以最终只保留了第二个梯形的面积，没有实现累加。

修正后的代码 #

Sub Integral()
    Dim i As Integer
    Dim Integral As Double
    
    Integral = 0 ' 显式初始化累加变量，避免潜在问题
    For i = 1 To 2
        ' 核心改为累加，而非直接赋值；同时不需要WorksheetFunction.Sum（单个值无需求和）
        Integral = Integral + ((Cells(3 + i, 2) - Cells(2 + i, 2)) * (Cells(3 + i, 3) + Cells(2 + i, 3)) / 2)
    Next i
    
    Sheet1.Cells(4, 7) = Integral
End Sub

关键说明 #

1. 累加逻辑：把Integral = ...改成Integral = Integral + ...，这样每次循环都会把当前梯形的面积加到总结果里，而不是覆盖之前的计算。
2. 去掉冗余的Sum函数：你每次计算的是单个梯形的面积，用WorksheetFunction.Sum完全没必要，直接计算即可，既简化代码又提高效率。
3. 显式初始化：虽然VBA中Double类型变量默认初始值为0，但显式写上Integral = 0能让代码逻辑更清晰，避免后续修改时出现意外。

如果需要计算更多梯形，只需要修改循环的上限（比如For i = 1 To 10）即可自动累加所有梯形的面积。

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