根据工作簿1，对工作簿2中符合条件的数据计数

jpylxj

各位大神，帮忙实现下记功能：
用VBA实现 COUNTIF条件计数的功能。

根据工作簿1A列条件，将工作簿2中A列中符合条件的数据计数，并将计数结果放在工作簿1的B列中。

shiruiqiang

遍历表，a列做字典，统计到工作簿1

3190496160

字典最基础的用法，10年老会员，不需要别人出手了吧

jpylxj

3190496160 发表于 2024-6-4 14:21
字典最基础的用法，10年老会员，不需要别人出手了吧

没有系统的学习，需要的时候总有些手忙脚乱的。

ykcbf1100

还是写一个吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.6.4
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     p = ThisWorkbook.Path
   
5.     f = p & "\工作簿2.xlsx"
   
6.     Set wb = Workbooks.Open(f, 0)
   
7.     With wb.Sheets("Sheet1")
   
8.         arr = .UsedRange
   
9.         wb.Close False
   
10.     End With
    
11.     For i = 2 To UBound(arr)
    
12.         s = arr(i, 1)
    
13.         d(s) = d(s) + 1
    
14.     Next
    
15.     r = Cells(Rows.Count, 1).End(3).Row
    
16.     For i = 5 To r
    
17.         s = Cells(i, 1)
    
18.         Cells(i, 2) = d(s)
    
19.     Next
    
20.     Set d = Nothing
    
21.     Application.ScreenUpdating = True
    
22.     MsgBox "OK！"
    
23. End Sub
    
24. 
    

复制代码