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

使用VBA（Excel）可以轻松地根据多个搜索条件进行查找，而无需使用循环。这种功能非常有用，特别是在处理大量数据时。在本文中，我们将介绍如何使用VBA编写代码来实现这一功能，并提供一个简单的案例来说明其用法。

vba
Sub FindStudents()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim searchRange As Range
    Dim ageCriteria As Range
    Dim scoreCriteria As Range
    
    ' 设置工作表和搜索范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set searchRange = ws.Range("A2:C10") ' 假设数据在A2:C10范围内
    
    ' 设置搜索条件
    Set ageCriteria = ws.Range("E2:E3") ' 年龄条件范围
    Set scoreCriteria = ws.Range("E4:E4") ' 成绩条件范围
    
    ' 清空上一次的搜索结果
    ws.Range("G2:I10").ClearContents
    
    ' 遍历搜索范围
    For Each cell In searchRange.Rows
        ' 检查年龄和成绩是否满足条件
        If cell.Offset(0, 1).Value >= ageCriteria.Cells(1, 1).Value And _
           cell.Offset(0, 2).Value > scoreCriteria.Cells(1, 1).Value Then
            ' 将符合条件的学生信息复制到搜索结果区域
            cell.Resize(1, 3).Copy ws.Range("G" & ws.Cells(Rows.Count, 7).End(xlUp).Row + 1)
        End If
    Next cell
End Sub