GBKEE

¦^´_ 1# zaq370

1. Sub Ex() 'A,B¨âÀɤw¶}±Ò
   
2.     Dim A_Rng As Range, B_Rng As Range, C_Rng As Range, i As Integer
   
3.     With Workbooks("A.XLSX").Sheets(1)
   
4.         Set A_Rng = .Range("i2", .[i2].End(xlDown))
   
5.     End With
   
6.     With Workbooks("B.XLSX").Sheets(1)
   
7.         Set B_Rng = .Range("i2", .[i2].End(xlDown))
   
8.     End With
   
9.     With Workbooks("C.XLSX").Sheets(1)
   
10.         Set C_Rng = .Range("B3", .[B3].End(xlDown))
    
11.     End With
    
12.     C_Rng.Offset(, 1) = ""
    
13.     For i = 1 To C_Rng.Count
    
14.         If i < C_Rng.Count Then
    
15.             C_Rng(i, 2) = Application.CountIf(A_Rng, C_Rng(i)) + Application.CountIf(B_Rng, C_Rng(i))
    
16.         Else
    
17.             C_Rng(i, 2) = A_Rng.Count + B_Rng.Count - Application.Sum(C_Rng.Offset(, 1))
    
18.         End If
    
19.     Next
    
20.     Set A_Rng = Nothing
    
21.     Set B_Rng = Nothing
    
22.     Set C_Rng = Nothing
    
23. End Sub

½Æ»s¥N½X