vba怎么查询符合条件的数据

在VBA中，可以使用SQL语句或使用Excel的内置函数来查询符合条件的数据。

方法一：使用SQL语句

1. 打开Visual Basic for Applications编辑器（按下Alt + F11）。
2. 在代码窗口中插入以下代码片段：

Sub QueryData()
    Dim cn As Object
    Dim rs As Object
    Dim strSql As String
    
    ' 连接到数据库
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=YourDatabase.accdb;"
    
    ' 定义查询语句
    strSql = "SELECT * FROM YourTable WHERE YourCondition = 'YourValue';"
    
    ' 执行查询语句
    Set rs = cn.Execute(strSql)
    
    ' 将结果输出到Excel工作表
    Sheet1.Range("A1").CopyFromRecordset rs
    
    ' 关闭连接
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

3. 将代码中的"YourDatabase.accdb"替换为实际的数据库文件名，"YourTable"替换为要查询的表名，"YourCondition"替换为查询条件字段名，"YourValue"替换为查询条件的值。
4. 运行代码，查询结果将会复制到Excel的工作表中。

方法二：使用Excel的内置函数

1. 打开Visual Basic for Applications编辑器（按下Alt + F11）。
2. 在代码窗口中插入以下代码片段：

Sub QueryData()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取数据区域最后一行
    lastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历数据区域，根据条件筛选数据
    For i = 2 To lastRow
        If Sheet1.Cells(i, 1).Value = "YourValue" Then
            ' 符合条件的数据，处理逻辑
            ' ...
        End If
    Next i
End Sub

3. 将代码中的"Sheet1"替换为实际的工作表名，"YourValue"替换为查询条件的值。
4. 在代码中的处理逻辑部分，可以根据需求进行相应的操作，比如复制到其他位置、删除等。

以上是根据不同情况使用的两种方法，具体的查询条件和操作逻辑需要根据实际需求进行调整。