register313

¦^´_ 5# caichen3

sheet1¤u§@ªí¼Ò²Õ

1. Private Sub CommandButton1_Click()
   
2. Sheet1.Range("A1:E2").Select
   
3. Selection.Copy
   
4. Sheet2.Activate          '¥[³o¥y,ÅýSheet2¬°§@¥Î¤u§@ªí
   
5. Sheet2.Select             '©Î¥[³o¥y,ÅýSheet2¬°§@¥Î¤u§@ªí
   
6. Sheet2.Range("A1").Select
   
7. Selection.PasteSpecial Transpose:=True
   
8. End Sub   

½Æ»s¥N½X

¥Î2#
sheet1¤u§@ªí¼Ò²Õ

1. Private Sub CommandButton1_Click()
   
2. Sheets("Sheet1").Range("A1:E2").Copy
   
3. Sheets("Sheet2").Range("A1").PasteSpecial xlPasteAll, Transpose:=True
   
4. End Sub

½Æ»s¥N½X