GBKEE

¦^´_ 1# PKKO
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub TEST_2()
   
3. Dim xRow As Integer, Arr(), Brr(), Ar()
   
4. xRow = 10
   
5. Arr = [A1].Resize(xRow).Value
   
6. Brr = [C1].Resize(xRow).Value
   
7. ReDim Ar(1 To UBound(Arr), 1 To UBound(Arr, 2)) '³]¸m¤@­Ó»PArr¦P¼Ë¤j¤p°}¦C(ªÅªº)
   
8. ReDim AA(1 To 10, 1 To 1)
   
9. For i = 1 To UBound(Arr)
   
10.     For J = 1 To UBound(Brr)
    
11.         If Brr(J, 1) Like "*" & Arr(i, 1) & "*" Then
    
12.         'Like ¹Bºâ¤l¥Î¨Ó¤ñ¸û¨â­Ó¦r¦ê¦³¬Û¦Pªº¦r
    
13.         'If Brr(J, 1) = Arr(i, 1) Then   '¨âªÌ¬Û¦P
    
14.             Ar(i, 1) = Ar(i, 1) + 1
    
15.         End If
    
16.     Next
    
17. Next
    
18. [B1].Resize(xRow) = Ar
    
19. End Sub

½Æ»s¥N½X