GBKEE

¦^´_ 1# ´Ñ»y³¾»ï

1. Sub Ex()
   
2.     Dim Rng As Range, Rng1 As Range, i As Integer
   
3.     Set Rng = Workbooks("Àɮפ@.xlsb").Sheets("¿é¤J¤@").Columns("T:U")
   
4.     Set Rng1 = Workbooks("ÀɮפG.xlsb").Sheets(1).[T1]        'Sheets(1)    ->²Ä1±i¤u§@ªí
   
5.     'Set Rng1 = Workbooks("ÀɮפG.xlsb").ActiveSheet.[T1]     'ActiveSheet  ->§@¥Î¤¤ªº¤u§@ªí
   
6.     'Set Rng1 = Workbooks("ÀɮפG.xlsb").Sheets("???").[T1]   'Sheets("???") ->«ü©wªº¤u§@ªí
   
7.     For i = 1 To 20                     '20¦¸ªº°j°é
   
8.         Rng.Copy Rng1
   
9.         Set Rng = Rng.Offset(, 3)       '©¹«á¦ì²¾3Äæ
   
10.         Set Rng1 = Rng1.Offset(, 3)     '©¹«á¦ì²¾3Äæ
    
11.     Next
    
12. End Sub

½Æ»s¥N½X