GBKEE

¦^´_ 1# openpc

1. Private Sub CommandButton1_Click()
   
2.     Sheets("Sheet1").Select
   
3.     Range("A1").Select
   
4.     Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
   
5.     Selection.Copy
   
6.     Sheets("Sheet1").Select  
   
7.     '   Sheets("Sheet2").Select   '<-½Æ»s¨ìSheet2
   
8.     Range("A11").Select
   
9.     ActiveSheet.Paste
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# openpc
½Ð¦h°Ñ¦Ò    ·s¤â VBA ¤Jªù±`¨£°ÝÃD
§A­×§ïµ{¦¡ ©ñ¦bThisWorkbook ©Î¤@¯ë²Õ ¬O¤£·|¦³¿ù»~ªº
¦pµ{¦¡½X¦bSheet1 ¶·§ï¦¨

1. Private Sub CommandButton1_Click()
   
2.     Sheets("Sheet1").Select
   
3.     Range("A1").Select
   
4.     Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
   
5.     Selection.Copy
   
6.     'Sheets("Sheet1").Select
   
7.      With Sheets("Sheet2")
   
8.         .Select   '<-½Æ»s¨ìSheet2
   
9.         .Range("A11").Select
   
10.     End With
    
11.     ActiveSheet.Paste
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# openpc
¤Gµ{¦¡®ÄªG¤@¼Ë

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     With Sheets("Sheet1")
   
4.         .Range("A1", .Range("A1").End(xlToRight).End(xlDown)).Copy Range("A11")
   
5.         ' Range ("A11") :  µ{¦¡½X¦bSheet3  ´N¬OSheet3ªºRange ("A11")
   
6.     End With
   
7. End Sub
   
8. Private Sub Ex()  '¦³«ü©w¤u§@ªí ©ñ¦ó³B³£¥i¥H
   
9.        ' Sheets("Sheet1").Range("A1", Sheets("Sheet1").Range("A1").End(xlToRight).End(xlDown)).Copy  Sheet3.Range("A11")
   
10.       '   ¤W¦¡µ{¦¡½Xµ¥¦P ¥H¤Uµ{¦¡½X
    
11.     With Sheets("Sheet1")
    
12.         .Range("A1", .Range("A1").End(xlToRight).End(xlDown)).Copy Sheet3.Range("A11")
    
13.     End With
    
14. End Sub

½Æ»s¥N½X