ikboy

1. Sub zz()
   
2. Dim ss As Worksheet
   
3. Application.ScreenUpdating = 0
   
4. Set ss = Workbooks("³Ì·s®w¦s.xlsx").Sheets("check")
   
5. With Workbooks("A®w¦sªí.xlsx").Sheets("½LÂI")
   
6.     For i = 6 To 26 Step 2
   
7.         .Range("T" & i).Resize(1, 6).Copy ss.Range("AV" & 28 + i).Resize(1, 6)
   
8.     Next
   
9. End With
   
10. Application.ScreenUpdating = 1
    
11. End Sub

½Æ»s¥N½X