GBKEE

¦^´_ 6# register313

1. Sub Ex()
   
2.     Dim A As Range, F As Range
   
3.     For Each A In sheet1.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers)
   
4.         Set F = sheet2.[A:A].Find(A, lookat:=xlWhole)
   
5.         With A.Offset(1).Resize(5)
   
6.             .Value = ""
   
7.             If Not F Is Nothing Then .Value = Application.Transpose(F.Offset(, 1).Resize(, 5).Value)
   
8.         End With
   
9.     Next
   
10. End Sub
    
11. Sub Ex1()
    
12.     Dim A As Range, F As Variant
    
13.     For Each A In sheet1.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers)
    
14.          F = Application.Match(A, sheet2.[A:A], 0)
    
15.         With A.Offset(1).Resize(5)
    
16.             .Value = ""
    
17.             If Not IsError(F) Then .Value = Application.Transpose(sheet2.Cells(F, "A").Offset(, 1).Resize(, 5).Value)
    
18.         End With
    
19.     Next
    
20. End Sub

½Æ»s¥N½X