VBA (Excel)：基于多个搜索条件进行查找，无需循环

使用VBA编程语言的Excel宏功能，我们可以轻松地基于多个搜索条件进行查找，而无需使用循环。这为我们处理大量数据提供了便利，同时能够提高工作效率。在本文中，我们将介绍如何使用VBA编写代码来实现这一功能，并提供一个实际案例来帮助读者更好地理解。

Sub 多条件查找()
    Dim 数据区 As Range
    Dim 查找区 As Range
    Dim 结果区 As Range
    Dim 条件1 As Range
    Dim 条件2 As Range
    Dim 结果行数 As Integer
    
    '设置数据区范围
    Set 数据区 = Worksheets("Sheet1").Range("A2:C10")
    
    '设置查找区范围
    Set 查找区 = Worksheets("Sheet1").Range("E2:E10")
    
    '设置结果区范围
    Set 结果区 = Worksheets("Sheet1").Range("G2:I10")
    
    '设置条件1范围
    Set 条件1 = Worksheets("Sheet1").Range("K2")
    
    '设置条件2范围
    Set 条件2 = Worksheets("Sheet1").Range("K3")
    
    '清空结果区
    结果区.ClearContents
    
    '循环遍历查找区
    For Each cel In 查找区
        '判断是否满足条件
        If cel.Value = 条件1.Value And cel.Offset(0, 1).Value = 条件2.Value Then
            '将满足条件的数据复制到结果区
            数据区.Rows(cel.Row - 1).Copy 结果区.Rows(结果行数 + 1)
            结果行数 = 结果行数 + 1
        End If
    Next cel
End Sub