[µo°Ý] ½Ð°Ý¥HÄ欰¥DªºÀx¦s®æ~¦p¦ó³]©w°j°é?(¤w¸Ñ¨M)

´Ñ»y³¾»ï

½Ð°Ý¦p¦ó§â¤U­±¼g¦¨°j°é(¦@20­Ó)
¦]¬°¤¤¦³Àɮפ@¤¤(¨C2Äæ´N¦³¥[¤F¤@Äæ¸ê®Æ)~©Ò¥H±q²Ä¤G¦¸¶K¨ìÀɮפG®É·|´î¤@Äæ
¿ý»sªºµ{¦¡½X¦p¤U:
½Ð°Ý°j°é­n¦p¦ó¼g?
¶¶«K°Ý¤@¤U:column(2)=Columns("B")
Columns("B:C")¤¤ªºBC­n¦p¦ó¥H¼Æ¦r¤è¦¡§e²{??

1. Sub °j°é´ú¸Õ()
   
2. 
   
3.     Windows("Àɮפ@.xlsb").Activate
   
4.     Sheets("¿é¤J¤@").Select
   
5.     Columns("T:U").Select
   
6.     Selection.Copy
   
7.     Windows("ÀɮפG.xlsb").Activate
   
8.     Columns("T:U").Select
   
9.     ActiveSheet.Paste
   
10.     Windows("Àɮפ@.xlsb").Activate
    
11.     Sheets("¿é¤J¤@").Select
    
12.     Columns("W:X").Select
    
13.     Application.CutCopyMode = False
    
14.     Selection.Copy
    
15.     Windows("ÀɮפG.xlsb").Activate
    
16.     Sheets("¶K¤W¦ì¸m").Select
    
17.     Columns("V:W").Select
    
18.     ActiveSheet.Paste
    
19.     Windows("Àɮפ@.xlsb").Activate
    
20.     Sheets("¿é¤J¤@").Select
    
21.     Columns("Z:AA").Select
    
22.     Application.CutCopyMode = False
    
23.     Selection.Copy
    
24.     Windows("ÀɮפG.xlsb").Activate
    
25.     Sheets("¶K¤W¦ì¸m").Select
    
26.     Columns("X:Y").Select
    
27.     ActiveSheet.Paste
    
28.     Windows("Àɮפ@.xlsb").Activate
    
29.     Sheets("¿é¤J¤@").Select
    
30.     Columns("AC:AD").Select
    
31.     Application.CutCopyMode = False
    
32.     Selection.Copy
    
33.     Windows("ÀɮפG.xlsb").Activate
    
34.     Sheets("¶K¤W¦ì¸m").Select
    
35.     Columns("Z:AA").Select
    
36.     ActiveSheet.Paste
    
37.     Windows("Àɮפ@.xlsb").Activate
    
38.     Columns("AF:AG").Select
    
39.     Application.CutCopyMode = False
    
40.     Selection.Copy
    
41.     Windows("ÀɮפG.xlsb").Activate
    
42.     Sheets("¶K¤W¦ì¸m").Select
    
43.     Columns("AB:AC").Select
    
44.     ActiveSheet.Paste
    
45.     Windows("Àɮפ@.xlsb").Activate
    
46.     Range("A1").Select
    
47.     Application.CutCopyMode = False
    
48.     Range("S1").Select
    
49. End Sub

½Æ»s¥N½X

´Ñ»y³¾»ï

¦^´_ 2# GBKEE


    G¤j±z¯u±j¡A³o»òµuªº®É¶¡´N§ï¦n¤F¡A¦Ó¥B¼g±o³o»ò¸Ô²Ó!¤@¬Ý´N©úÁA!§¹¥þ¥¿½T~¬Ù¤F§Ú¦n¦hªº®É¶¡!ÁÂÁ±z¤F~~

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