Excel VBA 代码：计算工作簿 'test001' 第 B 列积分

本代码使用 VBA 语言，在 Excel 工作簿 'test001' 中计算第 B 列数据积分，并显示结果。

Sub SUMIntegral()
    Dim sum As Double
    sum = 0
    For i = 1 To 31
        sum = sum + Cells(i, 2).Value * 168 * 0.001
    Next i
    MsgBox sum
End Sub

代码说明：

sum 变量用于存储积分结果。
For 循环遍历 B 列数据，从第 1 行到第 31 行。
Cells(i, 2).Value 获取第 i 行第 2 列（即 B 列）的数值。
168 * 0.001 代表积分的权重。
MsgBox sum 将积分结果显示在消息框中。

使用方法：

打开 Excel 工作簿 'test001'。
按 Alt + F11 打开 VBA 编辑器。
插入一个新模块。
将代码复制到模块中。
按 F5 运行代码。

注意：

请确保工作簿 'test001' 已打开。
代码中的数值 31 和 168 需要根据实际数据进行调整。