VBA根据给定条件查询想要的数据

你可以使用 VBA 中的 SQL 查询语句来根据给定条件查询想要的数据。以下是一个示例代码，供参考：

Sub QueryData()

    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim condition As String
    
    ' 连接数据库，这里以 Access 数据库为例
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\UserName\Documents\Database.accdb"
    
    ' 获取用户输入的条件
    condition = InputBox("请输入要查询的条件：")
    
    ' 查询符合条件的数据
    sql = "SELECT * FROM TableName WHERE Condition = '" & condition & "'"
    rs.Open sql, conn
    
    ' 将查询结果输出到 Excel 工作表中
    Worksheets("Sheet1").Range("A2").CopyFromRecordset rs
    
    ' 关闭连接和记录集
    rs.Close
    conn.Close
    
    Set rs = Nothing
    Set conn = Nothing

End Sub

在上面的代码中，用户需要输入要查询的条件，然后将条件拼接到 SQL 查询语句中。你需要将 `Provider` 和 `Data Source` 参数修改为你自己的数据库信息，并将 `TableName` 和 `Condition` 分别替换为你要查询的表名和条件。然后，将查询结果输出到 Excel 工作表中。