GBKEE

¦^´_ 4# yowhome

¥ÎSHEET2 D COLUMN ¬J¸ê®Æ, ¥h¹ï¤ñSHEET1 A COLUMN¬J¸ê®Æ

SHEET2 D COLUMN ªº¸ê®Æ¦³³\¦h¬O¤@³s¦ê¬Û¦Pªº­n¦p¦ó¤ñ¹ï,Áٻݦh»¡©ú.(¤W¶Ç½d¨Ò»¡©ú)

GBKEE

¦^´_ 7# yowhome
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(), R As Integer, I As Integer, M As Variant
   
4.     With Sheet2
   
5.         R = .[d1].End(xlDown).Row      'DÄæ³Ì«á¦³¸ê®Æªº¦C¸¹¼Æ
   
6.         .Range("A2:A" & .Rows.Count) = ""      '²M°£AÄ榳¸ê®Æ
   
7.         ReDim Ar(2 To R)               '­«¸m°}¦C
   
8.         For I = 2 To R
   
9.             M = Application.Match(.Cells(I, "D"), Sheet1.Range("A:A"), 0)
   
10.             'Match¨ç¼Æ:§ä¤£¨ì¶Ç¦^¿ù»~­È , §ä¨ì¶Ç¦^ ¼Æ¦r
    
11.             If IsNumeric(M) Then Ar(I) = Sheet1.Cells(M, "B")
    
12.         Next
    
13.         .Range("A2:A" & R) = Application.Transpose(Ar)
    
14.     End With
    
15. End Sub

½Æ»s¥N½X