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

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

方法一：使用SQL语句

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

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 = NothingEnd Sub

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

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

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

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 iEnd Sub

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

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