Excel|Excel VBA 多条件查找数据

这样应该OK了

1. Private Sub CommandButton1_Click()
   
2.     Dim Cnn, strSql$, Rst, a%
   
3.     Set Cnn = CreateObject("adodb.connection")
   
4.     Application.ScreenUpdating = False
   
5.     Cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
   
6.     strSql = "select 姓名,班级,学号,入学年月,性别,喜好,数据1,数据2 FROM [数据表$A:H] where "
   
7.     For a = 3 To 7
   
8.         strSql = strSql & Cells(a, "j") & " like '%" & Cells(a, "k") & "%' and "
   
9.     Next
   
10.     strSql = Left(strSql, Len(strSql) - 5)
    
11.     Set Rst = Cnn.Execute(strSql)
    
12.     Range([h2], Cells(Rows.Count, "a").End(3)).ClearContents
    
13.     [a2].CopyFromRecordset Rst
    
14.     Rst.Close
    
15.     Set Rst = Nothing: Set Cnn = Nothing
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码