VBA Sql查找数据的问题

满大人

如图所示，像把sheet1里人数大于80的班级作为条件，去查出sheet2里的人，但提示只能返回一个字段，该怎么写

1. Sub JK()
   
2. Dim SQL As String, MN%
   
3. Dim strconn As String
   
4. Dim CNN As Object
   
5. Set CNN = CreateObject("ADODB.Connection")
   
6. 
   
7. With CNN
   
8. .Provider = "Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source="
   
9. CNN.Open strconn & ThisWorkbook.FullName
   
10. 
    
11. End With
    
12. 
    
13. SQL1 = "SELECT * FROM[Sheet2$] WHERE 班级 in (SELECT * FROM[Sheet1$] WHERE [人数]>80 ) "
    
14. 
    
15. Set RS1 = CNN.Execute(SQL1)
    
16. 
    
17. With Sheet1
    
18. .[c7].ClearContents
    
19. .[c7].CopyFromRecordset RS1
    
20. 
    
21. 
    
22. 
    
23. End With
    
24. 
    
25. 
    
26. 
    
27. End Sub
    

复制代码

zpy2

SQL1 = "SELECT * FROM[Sheet2$] WHERE 班级 in (SELECT 班级 FROM[Sheet1$] WHERE [人数]>80 ) "