GBKEE

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

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar As Variant, E As Range, St As String
   
4.     With Sheets("vendorcode")
   
5.         Ar = Application.Transpose(.Range("a1", .Range("a1").End(xlDown)).Value)  ' Application.Transpose Âà¸m
   
6.         Ar = "," & Join(Ar, ",") & ","    '¤@ºû°}¦CÂର¦r¦ê
   
7.     End With
   
8.     With Sheets("SHEET1")
   
9.         For Each E In .Range("C2", .Range("C2").End(xlDown))
   
10.             If InStr(Ar, "," & E & ",") = 0 Then St = St & "," & E  '°O¿ý¦b¦r¦ê¤¤
    
11.         Next
    
12.     End With
    
13.     If St <> "" Then
    
14.         Ar = Split(Mid(St, 2), ",")         '¦r¦êÂର¤@ºû°}¦C
    
15.         Sheets("comp_rslt").Range("A1").Resize(UBound(Ar) + 1) = Application.Transpose(Ar)
    
16.     End If
    
17. End Sub

½Æ»s¥N½X