GBKEE

¦^´_ 4# luke

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, xf As Range, xi As Integer
   
4.     With Sheet1
   
5.         .[A11:J65536].Clear
   
6.         For Each E In Sheet1.[a1:a5]
   
7.             Set xf = Sheet2.[A:A].Find(E, lookat:=xlPart, After:=Sheet2.[A65536])
   
8.             Set xf = xf.Resize(E.Cells(1, 4), 10)
   
9.             For xi = 1 To E.Cells(1, 2)
   
10.                 With .Cells(Rows.Count, "A").End(xlUp).Offset(1)
    
11.                     If .Row < 11 Then xf.Copy Sheet1.[a11] Else xf.Copy .Cells
    
12.                 End With
    
13.             Next
    
14.         Next
    
15.     End With
    
16. End Sub

½Æ»s¥N½X