Excel VBA求助：按店铺组合标记买家冲突及Dictionary空值问题

一、Scripting.Dictionary为空的原因及修复 #

你的代码中Dictionary为空，核心原因是循环起始行错误：原代码从第1行开始遍历，但第1行是表头，G列值为表头文本或空，导致没有有效买家数据存入Dictionary。结合你清空S列从S3开始的逻辑，数据行应该从第3行开始。

修正：将两个For rowIndex = 1 To lastRow改为For rowIndex = 3 To lastRow。

另外，非英语环境下使用CreateObject("Scripting.Dictionary")（Late Binding）是完全可行的，不会因为语言问题导致创建失败。

二、店铺冲突标记的正确逻辑实现 #

原代码错误地用buyerStoreMap.Count > 1判断（这是统计所有买家的数量），正确逻辑是：单个买家对应的C+E店铺组合数量大于1时，标记“コンフリ有り”；仅有一种组合则标记“コンフリ無し”。

修正：在第二个循环中，将判断条件改为buyerStoreMap(buyerName).Count > 1。

三、修正后的完整代码 #

Private Sub Check_RR()
    Application.ScreenUpdating = False
    If Not Cells(2, 8).Value = "WS_Sales" Then
        End
    End If
    
    Dim AROW As Long, ACOL As Long
    AROW = ActiveCell.Row
    ACOL = ActiveCell.Column
    
    '声明变量
    Dim wsActive As Worksheet
    Dim lastRow As Long
    Dim buyerStoreMap As Object
    Dim buyerName As String
    Dim rowIndex As Long
    Dim storePairKey As String
    Dim storePairDict As Object

    '清空S列（从S3开始）
    Range("S3", Range("S" & Rows.Count).End(xlUp)).ClearContents

    '初始化工作表与Dictionary
    Set wsActive = ThisWorkbook.ActiveSheet
    lastRow = wsActive.Cells(wsActive.Rows.Count, "G").End(xlUp).Row
    Set buyerStoreMap = CreateObject("Scripting.Dictionary")

    '存储每个买家的店铺组合
    For rowIndex = 3 To lastRow  '修改：从数据行第3行开始
        buyerName = Trim(wsActive.Cells(rowIndex, "G").Value)
        If buyerName <> "" Then
            storePairKey = wsActive.Cells(rowIndex, "C").Value & "|" & wsActive.Cells(rowIndex, "E").Value
            If Not buyerStoreMap.Exists(buyerName) Then
                Set storePairDict = CreateObject("Scripting.Dictionary")
                buyerStoreMap.Add buyerName, storePairDict
            End If
            '避免重复添加相同组合
            If Not buyerStoreMap(buyerName).Exists(storePairKey) Then
                buyerStoreMap(buyerName).Add storePairKey, 1
            End If
        End If
    Next rowIndex

    '标记冲突状态
    For rowIndex = 3 To lastRow  '修改：从数据行第3行开始
        buyerName = Trim(wsActive.Cells(rowIndex, "G").Value)
        If buyerName <> "" Then
            '判断当前买家的店铺组合数量
            If buyerStoreMap(buyerName).Count > 1 Then
                wsActive.Cells(rowIndex, "S").Value = "コンフリ有り"
            Else
                wsActive.Cells(rowIndex, "S").Value = "コンフリ無し"
            End If
        End If
    Next rowIndex

    '设置筛选器
    If wsActive.AutoFilterMode Then wsActive.AutoFilter.ShowAllData
    wsActive.Range("A1:G" & lastRow).AutoFilter Field:=7, Criteria1:=ActiveCell.Value  '补充.Value确保取到单元格值

    '后续可继续叠加筛选器，示例：添加C列店铺筛选
    'wsActive.Range("A1:G" & lastRow).AutoFilter Field:=3, Criteria1:="指定店铺名"
    Application.ScreenUpdating = True
End Sub

额外优化：添加了If Not buyerStoreMap(buyerName).Exists(storePairKey) Then避免重复添加同一店铺组合，提升效率。

四、叠加筛选器的可行性 #

可以叠加设置筛选器，注意以下几点：

1. 不同字段叠加：直接调用AutoFilter指定新的Field和Criteria1即可，会在现有筛选基础上叠加新条件（逻辑为“且”）。
2. 同字段多条件：如果要对同一字段设置多个条件，需要使用Operator参数，比如Operator:=xlOr实现或逻辑。
3. 清除筛选：若需要重置筛选，调用wsActive.AutoFilter.ShowAllData即可清除所有筛选条件。

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