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

vba AH列-P列，每行的结果存放在AI列，最后把AI列大于0的数据相加放在最后

可以使用以下VBA代码实现：

Sub SumValues()
    Dim lastRow As Long
    Dim i As Long
    Dim sum As Double
    
    lastRow = Range("A" & Rows.Count).End(xlUp).Row '获取最后一行行号
    
    For i = 1 To lastRow '遍历每一行
        Range("AI" & i).Value = Application.Sum(Range("AH" & i & ":P" & i)) '计算每行结果并存储到AI列
        If Range("AI" & i).Value > 0 Then '如果AI列大于0，则累加到sum变量中
            sum = sum + Range("AI" & i).Value
        End If
    Next i
    
    Range("AI" & lastRow + 1).Value = sum '将大于0的结果相加并放在最后一行的AI列
End Sub

请注意，此代码基于数据从第1行开始，并将结果存储在AI列中。如果你的数据不是从第1行开始或结果应存储在其他列中，请相应地修改代码。