Excel VBA代码：计算工作簿中B列积分

Excel VBA代码：计算工作簿中B列积分

以下VBA代码可以计算名为'test001 31 168mz'的Excel工作簿中B列的积分。

Option Explicit

Sub CalculateIntegral()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim integral As Double
    Dim i As Long
    
    ' 获取活动工作表
    Set ws = ActiveWorkbook.Worksheets('test001 31 168mz')
    
    ' 找到最后一个非空单元格行
    lastRow = ws.Cells(ws.Rows.Count, 'B').End(xlUp).Row
    
    ' 进行积分计算
    For i = 2 To lastRow
        integral = integral + ws.Range('B' & i).Value * (ws.Range('A' & i).Value - ws.Range('A' & i - 1).Value)
    Next i
    
    ' 输出积分结果
    MsgBox 'B列的积分结果为：' & integral
    
End Sub

注意：

• 运行代码之前，请确保工作簿'test001 31 168mz'已打开并处于活动状态。
• 该代码假设A列包含用于积分计算的x轴数据。
• 代码使用数值积分方法，即用矩形面积逼近曲线下的面积来计算积分。
• 运行代码后，将弹出信息框显示积分结果。