lpk187

¦^´_ 1# adam2010


   ¸Õ¸Õ¥ÎFind¥h§ä
¦p¤U¡G

1. Public Sub test()
   
2. Z = ¤u§@ªí1.[A65536].End(xlUp).Row
   
3. For Each Rng In Range("a2:a" & Z)
   
4.     Set fng = ¤u§@ªí2.Cells.Find(Rng, , , , , 2)
   
5.     If Not fng Is Nothing Then
   
6.         K1 = fng.Column
   
7.         kk = ¤u§@ªí2.Cells(1, fng.Column)
   
8.         ¤u§@ªí1.Cells(Rng.Row, 4) = ¤u§@ªí2.Cells(1, fng.Column)
   
9.     Else
   
10.         ¤u§@ªí1.Cells(Rng.Row, 4) = "¬dµL¦¹¶µ"
    
11.     End If
    
12. Next
    
13. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 1# adam2010


    ©Ó¤Wªºµ{¦¡½X¤¤K1©MKKÅܼƥu¬O§ÚÆ[¬ÝÅܼƪºÅܤơA©Mµ{¦¡µLÃö¡A¥i¥H§R°£¡I
¥t¡A¤u§@ªí1©M¤u§@ªí2¥ç¥i§ï¦^sheet1©Msheet2