Excel VBA按列分组统计条件行数的循环实现方法

要实现按列分组分别统计，核心是给每个列组单独维护计数器，而不是把所有组的结果累加在一起。我帮你修改了原代码，同时解释关键调整点：

修改后的完整代码 #

Function RabigatorCount() As Variant
    Dim zelle As Range
    Dim i As Integer
    Dim posMonitoring As Integer
    Dim j As Integer
    Dim groupIndex As Integer
    ' 定义二维数组存储每组的统计结果：行=组序号，列=条件1/条件2的计数
    Dim intCounter() As Integer
    
    ' 定位is_monitoring_relevant所在列
    Set zelle = Cells.Find("is_monitoring_relevant")
    If zelle Is Nothing Then
        RabigatorCount = "未找到is_monitoring_relevant列"
        Exit Function
    End If
    posMonitoring = zelle.Column
    
    ' 计算分组数量：按你的需求（D/E、G/H...），每组两列，间隔一列，覆盖C2:N59（列3到14）
    ' 分组对应的列对是(4,5),(7,8),(10,11),(13,14)，共4组
    Dim totalGroups As Integer
    totalGroups = 4 ' 也可以用公式计算：totalGroups = ((14 - 4) \ 3) + 1
    ReDim intCounter(1 To totalGroups, 1 To 2) ' 每组对应2个统计值
    
    groupIndex = 1
    ' 遍历每个列组：j从3开始，步长3，j+1和j+2就是每组的两列
    For j = 3 To 12 Step 3
        ' 每组统计前先重置当前组的计数器
        intCounter(groupIndex, 1) = 0
        intCounter(groupIndex, 2) = 0
        
        ' 遍历行，统计当前组的符合条件行数
        For i = 2 To 59
            If Cells(i, posMonitoring).Value = "c" Then
                Select Case True
                    Case Cells(i, j + 1).Value < 0 And Cells(i, j + 2).Value < 0
                        intCounter(groupIndex, 1) = intCounter(groupIndex, 1) + 1
                    Case Cells(i, j + 1).Value = 0 And Cells(i, j + 2).Value < 0
                        intCounter(groupIndex, 2) = intCounter(groupIndex, 2) + 1
                End Select
            End If
        Next i
        
        groupIndex = groupIndex + 1 ' 切换到下一组
    Next j
    
    ' 返回二维数组，Excel中需按数组公式输入（Ctrl+Shift+Enter）
    RabigatorCount = intCounter
End Function

关键修改说明 #

• 计数器改为二维数组：intCounter(组序号, 条件序号)，每个列组的统计结果独立存储，不会互相覆盖。
• 增加分组索引：用groupIndex跟踪当前处理的是第几个组，遍历完一组后自增。
• 每组前重置计数器：确保每个组的统计从0开始，避免之前组的结果残留。
• 添加异常判断：如果找不到is_monitoring_relevant列，返回提示信息，避免报错。
• 优化条件判断：用Select Case替代嵌套If，逻辑更清晰；先判断is_monitoring_relevant为"c"，减少重复判断。

使用方法 #

在Excel中选中一个4行2列的区域（对应4组，每组2个统计值），输入=RabigatorCount()，然后按Ctrl+Shift+Enter作为数组公式输入，就能看到每个组的统计结果：

• 第1行：D/E列组的两个条件计数
• 第2行：G/H列组的两个条件计数
• 第3行：J/K列组的两个条件计数
• 第4行：M/N列组的两个条件计数

如果你的分组数量或列范围有变化，只需要调整totalGroups的值和For j的循环范围即可。

内容的提问来源于stack exchange，提问作者Elena