yen956

¦^´_ 1# kevin21522886
¸Õ¸Õ¬Ý:

1. Option Explicit
   
2. 
   
3. Sub ³Ì·sª©()
   
4.     Dim x, y As Worksheet
   
5.     Dim cnt, i As Integer
   
6.     Dim Rng, FindCell As Range
   
7.     Dim FindStr As String
   
8.     Set x = Sheets(1)
   
9.     cnt = ThisWorkbook.Sheets.Count
   
10.     For Each Rng In x.[B2].Resize(x.[B2].End(xlDown).Row - 1, 1)
    
11.         For i = cnt To 2 Step -1
    
12.             Set y = Sheets(i)
    
13.             y.Activate
    
14.             Set FindCell = y.Cells.Find(What:=Rng.Value, After:=ActiveCell, _
    
15.                     LookIn:=xlFormulas, LookAt:=xlPart, _
    
16.                     SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    
17.                     MatchCase:=False, MatchByte:=False, SearchFormat:=False)
    
18.             If Not FindCell Is Nothing Then
    
19.                Rng.Offset(0, -1) = FindCell.Offset(0, -1)
    
20.                Rng.Offset(0, 1) = FindCell.Offset(0, 1)
    
21.                Exit For
    
22.             End If
    
23.         Next
    
24.     Next
    
25. End Sub

½Æ»s¥N½X