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

±N¦h­Ósheetªº¸ê®Æ¦X¨Ö¨ì²Ä¤@­Ósheet¤¤

±N¦h­Ósheetªº¸ê®Æ¦X¨Ö¨ì²Ä¤@­Ósheet¤¤

¦U¦ì¤j¤j~

¤£¦n·N«ä~§ÚÁÙ¦³­Ó°ÝÃD·Qµo°Ý~

¸ê®Æ¦p¤U¹Ï~

¨º¦³¦h­Ósheet(200­¶¥H¤W)

¦]¬°¨C­Ósheetªº®æ¦¡¸òÄæ¦ì¼Æ³£¤@¼Ë~

¨º¦³¨S¦³¥¨¶°¬O¯à°÷§â¥þ³¡ªºsheet¦X¨Ö¨ì²Ä¤@­Ósheet¤¤©O?

´N¬O±µ¦b²Ä¤@­Ósheet¤¤¸ê®Æªº¤U­±¡A¤@ª½±µ³s¤U¥h..

·PÁ¦U¦ì¤j¤j

¦^´_ 1# sky00264
¨C­¶³Ì¤j¸ê®Æ¶q¦bIÄæ
¸Õ¸Õ
  1. Sub ex()
  2. For i = 2 To Sheets.Count
  3.    Sheets(i).UsedRange.Copy Sheets(1).Cells(Rows.Count, "I").End(xlUp).Offset(1, -8)
  4. Next
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¤j¤j~±ßÂI¸Õ¸Õ~
¤£¹L§Ú¤£¤ÓÀ´
Sheets(i).UsedRange.Copy Sheets(1).Cells(Rows.Count, "I").End(xlUp).Offset(1, -8)
³o¥yµ{¦¡½Xªº·N«ä...

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2012-11-30 00:22 ½s¿è

¦^´_ 3# sky00264
Sheets(i).UsedRange.Copy Sheets(1).Cells(Rows.Count, "I").End(xlUp).Offset(1, -8)
Sheets(i)©Ò¦³¦³¨Ï¥Î¨ìªº½d³ò½Æ»s¨ì => Sheets(1) "I"Äæ³Ì«á¤@¦C(¤u§@ªí³Ì¤j¦C¼Æ)©¹¤W§ä¨ì«DªÅ¥ÕÀx¦s®æ¦A¦V¤U¤@®æ¦V¥ª¤K®æªº¦ì¸m

´£¿ô¤U¦¸°O±o¥Î¦^´_ , ¹ï¤è¤~·|¦¬¨ì°T®§

TOP

¦^´_ 2# Hsieh

½Ð°Ý¦pªG¤£¬O¦b¦P¤@­Óexcel¤º©O¡H
¨Ò¦p¦³¥|­Óexcel ¦W¦p¤U
a.xlsx    worksheet ¦W  ¡§1¡¨
b.xlsx    worksheet ¦W  ¡§2¡¨
c.xlsx     worksheet ¦W  ¡§3¡¨
d.xlsx    worksheet ¦W  ¡§4¡¨

­n±N³o¥|­Ó¤£¦Pexcel¦Wªº¥|­Ó¤£¦Pworksheet¦W½Æ»s¨ì
e.xlsx    worksheet ¦W  ¡§5¡¨
¤º®e¦pª©¥D¤@¼Ë¥u¬O¤À¤£¦Pªºexcel ¦W©M¤£¦Pworksheet¦W

TOP

¦^´_ 4# stillfish00

·PÁ¤j¤jªº¸Ñ»¡~
Á¿ªº«Ü²M·¡~
¤]ÁÂÁÂHsieh¤j¤j~
¸g´ú¸Õ«á½T¹ê¥i¥H¨Ï¥Î~
¸`¬Ù¤F«Ü¦h®É¶¡^^

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD