多条件查找问题求助

xkx590

陆离Lowry 发表于 2022-12-8 10:45
。。。。。。。。。。。。。。

谢谢高手帮忙

limonet

Sub a()
    Dim Cn As Object, StrCn$, StrSQL, Arr As Variant, i%
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    StrSQL = "select 姓名 from [sheet2$A:C] where 班级='" & Cells(2, "A").Value & "'"
    Arr = Cn.Execute(StrSQL).getrows
    Range("C2").Resize(30) = Application.WorksheetFunction.Transpose(Arr)
    For i = 30 To UBound(Arr, 2)
        Cells(i - 28, "G") = Arr(0, i)
    Next i
End Sub