请符合条件的数据个数。

刘雄军

sheet1里面A列序号都有4个相同的，i列结果也应有4个PASS，但有个别结果不是PASS,求A列有4个相同的，同时i列有4个PASS的序号共有几个及是哪些序号。人工计算应是3个，即序号1,3,5。用vba如何写。以后这个行数有可能会多会少。

280022976

上表上数据。模拟结果，不要纸上谈兵

刘雄军

280022976 发表于 2023-12-1 15:00
上表上数据。模拟结果，不要纸上谈兵

已上传，请帮写下，谢谢

ykcbf1100

参与一下。。。

280022976

练习一下，改了下完成！！

沈默00

沈默00

结果写在L7单元格

无关岁月

hi.7z (19.02 KB, 下载次数: 3)

2023-12-1 18:08 上传

点击文件名下载附件

cyq4896

参与一下..

chxw68

1. Sub test()
   
2.     Dim sql As String
   
3.     Dim mybook As String
   
4.     Dim cnn As Object
   
5.     Dim rs As Object
   
6.     Set cnn = CreateObject("adodb.connection")
   
7.     Set rs = CreateObject("adodb.recordset")
   
8.     mybook = ThisWorkbook.FullName
   
9.     With cnn
   
10.         If Application.Version = "11.0" Then
    
11.             .Provider = "microsoft.jet.oledb.4.0"
    
12.             .ConnectionString = "extended properties=""excel 8.0;HDR=YES;IMEX=1"";data source=" & mybook
    
13.         Else
    
14.             .Provider = "microsoft.ACE.oledb.12.0"
    
15.             .ConnectionString = "extended properties=""excel 12.0;HDR=YES;IMEX=1"";data source=" & mybook
    
16.         End If
    
17.         .Open
    
18.     End With
    
19.     sql = "select 序号 from [sheet1$a1:i] where 结果='PASS' group by 序号,结果 having count(序号)=4"
    
20.     rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
    
21.     With Worksheets("sheet1")
    
22.         .Range("m6:m" & .Rows.Count).Clear
    
23.         .Range("m6").CopyFromRecordset rs
    
24.     End With
    
25. End Sub
    

复制代码