GBKEE

¦^´_ 1# vpower

1. Private Sub CommandButton1_Click()
   
2.     Selection.Copy
   
3.     Sheets("Á`Äý").Select
   
4.     Range(Cells(1, 2)).Select
   
5.     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
   
6.         False, Transpose:=True
   
7. End Sub
   
8. Private Sub CommandButton3_Click()
   
9.     Sheets("Á`Äý").Select
   
10.     Range("2:2,4:4,6:6").Select
    
11.     Range("A6").Activate
    
12.     Selection.ClearContents
    
13. End Sub

½Æ»s¥N½X

³o¬O§A­ì¥»ªºµ{¦¡½X  ¼g¦bsheets("­ì½Z") ª«¥ó¼Ò²Õ¤¤
Sheets("Á`Äý").Select-> '«ü©w "Á`Äý"¬°§@¥Î¤¤ªº¤u§@ªí
±µ¤Uªº Range(Cells(1, 2)).Select   »yªk¬O¿ù»~ªº
¥¿½T¬O  Range(Cells(1, 2).Address).Select    ¦ý³o¼ËÁÙ¬O·|¦³¿ù»~
¦]¬° µ{¦¡½X¬O¦b"­ì½Z"¤¤  ©Ò¥H¨S¦³«ü©ú¬O­þ¤@­ÓSHEET¤¤§@Select ·|¦b"­ì½Z"¤¤§@Selectªº¤èªk
¦p¦¹´N²£¥Í¿ù»~ ¶·­×§ï¦¨ Sheets("Á`Äý").Range(Cells(1, 2).Address).Select
                                  ¦P Sheets("Á`Äý").Cells(1, 2).Select
                                  ¦P Sheets("Á`Äý").Range("B1").Select
CommandButton3_Click ->  Range("2:2,4:4,6:6").Select  ­×§ï¦¨ Sheets("Á`Äý").Range("2:2,4:4,6:6").Select
                                            Range("A6").Activate     ­×§ï¦¨   Sheets("Á`Äý").Range("A6").Activate

¦pªG §A±Nµ{¦¡½X¼g¦b¤@¯ë¼ÒèÊ(Module) ¤¤´N¨S¦³°ÝÃDªº

GBKEE

¦^´_ 3# vpower
ActiveSheet.Range("A2").Select     ->ActiveSheet =§@¥Î¤¤ªº¤u§@ªí
©Ò¥H¤W­±ªº»yªk·N«ä=> §@¥Î¤¤ªº¤u§@ªí¦b Range("A2").Select ªº¤èªk
²Ä2ÃD¬O¤]¥i¥H³o¼Ë­×§ïªº

¦^´_ 4# vpower

1. Private Sub CommandButton1_Click()
   
2.     With Selection
   
3.         .Copy
   
4.         Sheets("Á`Äý").Range("b1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
   
5.                 False, Transpose:=True
   
6.         .Value = ""
   
7.     End With
   
8. End Sub

½Æ»s¥N½X