如何用Excel VBA统计各产品对应绿色出现次数并标记行？

核心思路 #

用字典存储每个产品对应的绿色记录次数，通过两次遍历数据实现需求：第一次统计各产品的绿色出现次数，第二次根据统计结果判断是否将该产品的所有行设为红色填充，比嵌套使用Match/Count函数更高效，适合处理长数据集。

完整代码 #

Sub CountGreenAndColorRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim productDict As Object
    Dim i As Long
    Dim productName As String
    
    ' 绑定当前激活工作表，可替换为指定表名如Sheets("数据")
    Set ws = ActiveSheet
    ' 获取B列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    ' 创建字典对象存储产品-绿色次数映射
    Set productDict = CreateObject("Scripting.Dictionary")
    
    ' 第一次遍历：统计各产品的绿色出现次数
    For i = 2 To lastRow ' 假设第一行为表头，若无表头则改为i=1
        productName = ws.Cells(i, "B").Value
        If ws.Cells(i, "A").Value = "Green" Then
            ' 字典自动处理首次出现的产品，次数默认初始为0，直接加1即可
            productDict(productName) = productDict(productName) + 1
        End If
    Next i
    
    ' 第二次遍历：根据绿色次数设置行填充色
    For i = 2 To lastRow
        productName = ws.Cells(i, "B").Value
        ' 先重置行填充色为默认，避免历史格式干扰
        ws.Rows(i).Interior.ColorIndex = xlColorIndexNone
        ' 判断该产品绿色次数是否超过3次
        If productDict.Exists(productName) And productDict(productName) > 3 Then
            ws.Rows(i).Interior.Color = RGB(255, 0, 0) ' 设置红色填充
        End If
    Next i
    
    ' 释放对象内存
    Set productDict = Nothing
    Set ws = Nothing
    MsgBox "统计与着色完成！"
End Sub

关键说明 #

• 字典的优势：键值对结构可快速匹配产品，避免重复计算，处理大量数据时性能远优于工作表函数循环
• 表头适配：代码默认第一行为表头，若你的数据无表头，只需将两次循环的起始值i=2改为i=1
• 颜色重置：添加了清除原有填充色的逻辑，确保结果不受之前格式的影响

使用步骤 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 插入模块：右键左侧工作簿名称 → 插入 → 模块
3. 将上述代码粘贴到模块中
4. 返回Excel界面，按下Alt + F8，选择CountGreenAndColorRows并执行

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