GBKEE

¦^´_ 3# MRSA

1. Sub Ex()
   
2.     Dim E As Range, I
   
3.     For Each E In Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants)
   
4.         I = Application.Match(E, Sheet2.Range("A:A"), 0)
   
5.         If IsNumeric(I) Then E.End(xlToRight).Offset(, 1) = Sheet2.Cells(I, "B")
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

GBKEE

With Sheets(2)¤¤ªºEnd With¬°¦ó©ñ¨ì³Ì©³¤U©O?
¥i¥H©ñ¦bWith Sheets(1)¤§«e¶Ü?asus103 µoªí©ó 2011-1-10 08:15

¥i¥Hªº
With Sheets(2)¤¤ªºEnd With¼g¦bWith Sheets(1)¤§«e ¨Ã¤£¼vÅT¾ã­Óµ{¦¡µ²ºc