GBKEE

¦^´_ 1# sandra_wang

1. Sub Ex()
   
2.     Dim Rng(1 To 2) As Range, R As Range, i
   
3.     With ActiveSheet
   
4.         Set Rng(1) = .Range(.Cells(62, 3), .Cells(62, 3).End(xlToRight))
   
5.         Set Rng(2) = .Range(.Cells(6, 3), .Cells(6, 3).End(xlToRight))
   
6.         For Each R In Rng(1)
   
7.             i = Application.Match(R.Value, Rng(2), 0)
   
8.             If IsError(i) = False Then .Range(R.Cells(2, 1), R.End(xlDown)).Copy .Cells(53, 2 + i)
   
9.         Next
   
10.     End With
    
11. End Sub

½Æ»s¥N½X