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

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

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

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD