Hsieh

¦^´_ 3# luke

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With sheet2
   
4.    For Each a In .Range(.[A1], .[A1].End(xlDown))
   
5.       d(a.Value) = a.Offset(, 1).Resize(, 5).Value
   
6.    Next
   
7. End With
   
8. With sheet1
   
9. For Each a In .UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers)
   
10.    a.Offset(1).Resize(UBound(d(a.Value), 2), 1) = Application.Transpose(d(a.Value))
    
11. Next
    
12. End With
    
13. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# register313

With sheet1
For Each a In Union(.[A15:K15], .[A22:K22], .[A29:K29], .[A36:K36]).SpecialCells(xlCellTypeConstants)
   a.Offset(1).Resize(UBound(d(a.Value), 2), 1) = Application.Transpose(d(a.Value))
Next
End With