±N¤u§@ªí1¡B¤u§@ªí2²Å¦X±ø¥ó¸ê®Æ¥Hfind¾ã¦X¨ì¤u§@ªí3°ÝÃD

lionliu

¦U¦ì¤j­ô¦n¡G
¦³­Ó°ÝÃD½Ð±Ð:
§Ú­n±N²Å¦X¤u§@ªí3ªí³æ¤º®e¥Ñ¤u§@ªí1¡B¤u§@ªí2±a¤J°ÝÃD¡C
§Ú¥v¥Hfind¥h¼g¦ý¬O¦b¤Á´«¥\¹Lªí®É·|¥X¿ù¡C½Ð±Ð§ÚÀ³¦p¦ó­×¥¿¡C
ªþ¤W½d¨Ò

1. Sub sech()
   
2. Dim i, j As Integer
   
3. Dim Nam As String
   
4. 
   
5. For i = 2 To 6
   
6. Nam = Sheets(3).Cells(i, "a")
   
7. Sheets(2).Select
   
8. Selection.Find(What:=Nam, After:=ActiveCell _
   
9.         , LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
   
10.         SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
    
11.         :=False).Activate
    
12. Sheets(3).Cells(i, "b") = ActiveCell.Offset(, 1)
    
13. 'µLªk¤Á´«°ÝÃD
    
14. Sheets(1).Select
    
15. Selection.Find(What:=Nam, After:=ActiveCell _
    
16.         , LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
    
17.         SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
    
18.         :=False).Activate
    
19. Sheets(3).Cells(i, "c") = ActiveCell.Offset(, -1)
    
20. Next i
    
21. 
    
22. End Sub

½Æ»s¥N½X

¬¡­¶Ã¯3.rar (12.35 KB)

¤U¸ü¦¸¼Æ: 8

2017-4-14 17:09

yen956

¸Õ¸Õ¬Ý
Sub sech()
Dim i As Integer, j As Integer, Rng
Dim Nam As String
For i = 2 To 6
    Nam = Sheets(3).Cells(i, "a")
    Sheets(2).Select
    Set Rng = Range("A:A").Find(What:=Nam, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
        :=False)
    Sheets(3).Cells(i, "b") = Rng.Offset(, 1)

    'µLªk¤Á´«°ÝÃD
    Sheets(1).Select
    Set Rng = Range("B:B").Find(What:=Nam, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
        :=False)
    Sheets(3).Cells(i, "c") = Rng.Offset(, -1)
Next i
End Sub

lionliu

¦^´_ 2# yen956

ÁÂÁ°աA§Ú¦A¸Õ¤@¤U