如何用VBA实现Excel精准筛选：仅保留无对应A状态的B状态项目

筛选Excel「Item」列的值，需同时满足两个条件：

• 对应「Status」列的值为"B"
• 该「Item」的所有行中，「Status」列从未出现"A"

最终目标是标记出Item为"2"和"4"的行——这两个Item的所有Status均为B，无任何A记录。

当前编写的VBA代码仅能筛选出「Status」为"B"的所有Item（会返回除"3"外的所有值），无法满足第二个核心条件。现有代码如下：

Sub ChooseStatus()

Dim Sheet1 As Worksheet
Set Sheet1 = ThisWorkbook.Sheets("Sheet1")
    
'defining the area
lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

sr = Selection.Row

'defining categories
Item = Sheet1.Cells(sr, 1)
Status = Sheet1.Cells(sr, 2)

'loop
For i = 2 To lr
    If Sheet1.Cells(i, 2) = "B" Then
        Sheet1.Cells(i, 1).Interior.Color = rgbBlue
    End If
Next i
   
End Sub

通过字典记录每个Item是否存在A状态，再二次遍历筛选符合条件的行：

Sub ChooseValidItems()
    Dim Sheet1 As Worksheet
    Dim lr As Long, i As Long
    Dim itemDict As Object
    Dim currentItem As Variant
    
    Set Sheet1 = ThisWorkbook.Sheets("Sheet1")
    Set itemDict = CreateObject("Scripting.Dictionary")
    
    ' 第一步：标记每个Item是否存在Status="A"的行
    lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lr
        currentItem = Sheet1.Cells(i, 1).Value
        If Not itemDict.Exists(currentItem) Then
            ' 首次记录该Item，直接判断当前行是否为A
            itemDict(currentItem) = (Sheet1.Cells(i, 2).Value = "A")
        Else
            ' 若已存在，只要有一行是A就标记为True
            If Sheet1.Cells(i, 2).Value = "A" Then
                itemDict(currentItem) = True
            End If
        End If
    Next i
    
    ' 第二步：筛选并标记符合条件的行
    For i = 2 To lr
        currentItem = Sheet1.Cells(i, 1).Value
        ' 满足：当前Status是B，且该Item从未出现过A
        If Sheet1.Cells(i, 2).Value = "B" And Not itemDict(currentItem) Then
            Sheet1.Cells(i, 1).Interior.Color = rgbBlue
        Else
            ' 重置颜色，避免旧筛选结果残留
            Sheet1.Cells(i, 1).Interior.Color = xlNone
        End If
    Next i
    
    ' 释放对象
    Set itemDict = Nothing
    Set Sheet1 = Nothing
End Sub

1. 字典记录状态：用Scripting.Dictionary存储每个Item的A状态标记，键为Item值，值为布尔值（True=存在A，False=无A）
2. 两次遍历：第一次完成所有Item的状态标记，第二次根据标记筛选出同时满足两个条件的行并上色
3. 重置颜色：添加了颜色重置逻辑，避免之前的筛选结果干扰新结果

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