ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Æ»sÀx¦s®æ°ÝÃD

[µo°Ý] ½Æ»sÀx¦s®æ°ÝÃD

½Ð°Ý¤j¤j­Ì¡A¦p¦ó±Nsheet1.[A1:E2]ªº¤º®e½Æ»s¨ìsheet2.[A1:B5]¤¤©O¡H¡H

Book1.rar (8.28 KB)

Ä_Ä_

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-5-16 14:33 ½s¿è

¦^´_ 1# caichen3
³o¦U¶Ü
§Ú¬O¥Î¿ý»s¥¨¶°¤è¦¡­×§ï
  1. Sub Macro11()
  2.     Sheets("Sheet1").Range("A1:E2").Copy
  3.     Sheets("Sheet2").Range("A1").PasteSpecial xlPasteAll, Transpose:=True
  4. End Sub
½Æ»s¥N½X
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦pªG¬O§Æ±æ¦bsheet1¤¤«ö¤U«ö¶s«K¥i¥H½Æ»s¨ìsheet2©O¡H¡H
Ä_Ä_

TOP

¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

Private Sub CommandButton1_Click()
Sheet1.Range("A1:E2").Select
Selection.Copy
Sheet2.Range("A1").Select
Selection.PasteSpecial Transpose:=True
End Sub
¬õ¦âªºµ{¦¡½X°õ¦æ¥X¿ù¡A¬O¬°¤°»ò©O¡H¡H
Ä_Ä_

TOP

¦^´_ 5# caichen3


    2007ª©ªº¥i¥H¨º¼Ë¼g¶Ü?
    sheet1 ¸òsheets(1)¤@¼Ë¶Ü?
    §Ú¬O¥Î2003ª©

    §A¦pªG­n¦b§AªºÀɮ׸Õ
   ­n¥ý§â²Ä2¦U¤u§@ªí²MªÅ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD