Vba多条件查询代码

VBA（Visual Basic for Applications）是一种用于自动化任务和编写宏的编程语言，可以在Microsoft Office应用程序中使用。下面是一个示例的VBA多条件查询代码，用于在Excel中进行数据查询：

Sub MultiConditionQuery()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim searchValue1 As String
    Dim searchValue2 As String
    
    ' 设置要查询的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要查询的范围
    Set rng = ws.Range("A1:C10")
    
    ' 设置要查询的条件值
    searchValue1 = "条件1"
    searchValue2 = "条件2"
    
    ' 遍历范围中的每个单元格，进行条件查询
    For Each cell In rng
        If cell.Value = searchValue1 And cell.Offset(0, 1).Value = searchValue2 Then
            ' 如果满足条件，则在此处执行相应的操作
            ' 例如，可以将满足条件的单元格的值复制到其他位置
            cell.Copy Destination:=ws.Range("E1")
        End If
    Next cell
End Sub

上述代码中，我们首先设置要查询的工作表和查询范围。然后，我们设置要查询的条件值，并使用`For Each`循环遍历范围中的每个单元格。在循环中，我们使用`If`语句来判断单元格的值是否满足条件。如果满足条件，则可以在相应的位置执行操作，例如将满足条件的单元格的值复制到其他位置。