VBA & SQL如何在excel中根据范围选择特定值？

Sub SelectSpecificValues()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim selectedValues As Range
    Dim cell As Range
    
    ' 创建数据库连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置数据库连接字符串，这里使用Excel自带的Microsoft Jet OLE DB引擎
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=Yes;"""
    
    ' 打开数据库连接
    conn.Open
    
    ' 设置SQL查询语句，这里假设数据位于Sheet1的A1:B10范围内
    strSQL = "SELECT * FROM [Sheet1$A1:B10] WHERE Column1 = '特定值'"
    
    ' 执行SQL查询
    Set rs = conn.Execute(strSQL)
    
    ' 清空选定区域
    Set selectedValues = Nothing
    
    ' 遍历查询结果，将符合条件的单元格添加到选定区域
    Do While Not rs.EOF
        Set cell = Range(rs.Fields(0).Value)
        If selectedValues Is Nothing Then
            Set selectedValues = cell
        Else
            Set selectedValues = Union(selectedValues, cell)
        End If
        rs.MoveNext
    Loop
    
    ' 关闭记录集和数据库连接
    rs.Close
    conn.Close
    
    ' 在选定区域中选中特定值
    If Not selectedValues Is Nothing Then
        selectedValues.Select
    End If
End Sub