excel vba搜索多个条件可获得多个结果

Sub SearchMultipleConditions()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim searchValue1 As String
    Dim searchValue2 As String
    
    ' 设置搜索条件
    searchValue1 = "条件1"
    searchValue2 = "条件2"
    
    ' 设置搜索范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    
    ' 遍历搜索范围
    For Each cell In rng
        ' 判断是否满足搜索条件
        If cell.Value = searchValue1 And cell.Offset(0, 1).Value = searchValue2 Then
            ' 执行相应操作，例如将结果输出到另一个区域
            ws.Range("C1").Value = cell.Value
            ws.Range("D1").Value = cell.Offset(0, 1).Value
        End If
    Next cell
End Sub