VBA匹配6个条件

Sub MatchSixConditions()
    Dim dataRange As Range
    Dim cell As Range
    Dim matchResult As Collection
    
    ' 设置数据范围，假设数据在Sheet1的A1:D100
    Set dataRange = Sheet1.Range("A1:D100")
    
    ' 初始化匹配结果集合
    Set matchResult = New Collection
    
    ' 遍历数据范围
    For Each cell In dataRange
        ' 检查条件
        If cell.Value = condition1 And _
           cell.Offset(0, 1).Value = condition2 And _
           cell.Offset(0, 2).Value = condition3 And _
           cell.Offset(0, 3).Value = condition4 And _
           cell.Offset(0, 4).Value = condition5 And _
           cell.Offset(0, 5).Value = condition6 Then
           
           ' 将匹配的数据添加到结果集合
           matchResult.Add cell.Value
        End If
    Next cell
    
    ' 输出匹配结果
    For Each matchedData In matchResult
        Debug.Print matchedData
    Next matchedData
End Sub