vba 统计AI列大于0的数相加

假设你要统计的 AI 列在 Excel 表格中的列名为 AI，可以使用以下 VBA 代码实现：

Sub SumAIColumn()
    Dim lastRow As Integer
    Dim sum As Double
    lastRow = Cells(Rows.Count, "AI").End(xlUp).Row '获取 AI 列的最后一行
    For i = 1 To lastRow
        If Cells(i, "AI").Value > 0 Then '判断 AI 列当前行的值是否大于0
            sum = sum + Cells(i, "AI").Value '如果大于0，累加到 sum 变量中
        End If
    Next i
    MsgBox "AI 列大于0的数相加的结果为：" & sum '弹出消息框显示结果
End Sub

将以上代码复制到 VBA 编辑器中并运行，即可得到 AI 列大于0的数相加的结果。