如何使用VBA实现多条件去重计数

在VBA中实现多条件去重并计数可以结合字典（Dictionary）和数组来完成。这里有一个示例展示了如何基于两个或多列进行去重并统计各唯一组合的出现次数：

1. **创建一个多条件字典**:
使用`CreateObject("scripting.dictionary")`创建一个字典，键将是满足条件的组合，值则是计数值。

Sub MultiConditionUniqueCount()
    Dim arrData As Variant '存储数据的数组
    Dim condition1 As String '第一个条件的列名或值
    Dim condition2 As String '第二个条件的列名或值
    '... 更多条件可以根据实际需求添加
    
    '假设我们有两个条件，比如列A和B
    condition1 = "ColumnA"
    condition2 = "ColumnB"

    '填充数据数组 arrData
    arrData = '从工作表或数组中获取你的数据，例如 arrData = ThisWorkbook.Sheets("Sheet1").Range("A:B")

    '去重计数
    Dim dic As Object
    Set dic = CreateObject("scripting.dictionary")
    
    For Each row In arrData
        Dim key As Variant
        key = Join(Array(row(column1), row(column2)), ",") '按条件组合键
        If Not dic.Exists(key) Then
            dic.Add key, 1 '初始计数为1
        Else
            dic(key) = dic(key) + 1 '如果键已存在，则加1
        End If
    Next

    '输出结果
    Debug.Print "多条件组合及其出现次数:"
    For Each entry In dic
        Debug.Print entry.Key & ": " & entry.Value
    Next
End Sub

在这个例子中，你需要替换`condition1`, `condition2`以及`arrData`为实际的列名或单元格引用，以便匹配你的数据。执行此宏后，它会计算满足特定条件的行的组合，并打印出每种组合及其出现的次数。