vba 统计AI列大于0的数

可以通过以下代码实现：

Sub CountAI()
    Dim lastRow As Long
    Dim count As Long
    Dim i As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, "AI").End(xlUp).Row ' 获取AI列最后一行的行数
    count = 0
    
    For i = 1 To lastRow
        If Range("AI" & i).Value > 0 Then ' 判断AI列当前行的值是否大于0
            count = count + 1 ' 计数器加1
        End If
    Next i
    
    MsgBox "AI列大于0的数共有" & count & "个。"
End Sub

这段代码会在当前活动工作表中统计AI列大于0的数的个数，并用消息框提示结果。

相关问题

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的数相加的结果。