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

[µo°Ý] ¤@¶}©l¯à¥Î,«á¨Ó¥[¤F¤@±iªí®æ¸ò¤º«Ø¤½¦¡´N¶Ã¤F

[µo°Ý] ¤@¶}©l¯à¥Î,«á¨Ó¥[¤F¤@±iªí®æ¸ò¤º«Ø¤½¦¡´N¶Ã¤F

¥»©«³Ì«á¥Ñ Convulse ©ó 2015-12-2 09:14 ½s¿è

¥»¨Ó¼g¤F¤@­ÓMacro §â63­Óªí®æªº¸ê®Æ¶K¨ì¤@­Óªí®æ
¤@¶}©l¶]¬OOK¤F
¦ý¬O«á¨Ó·s¼W¤F¤@±iªí°µ­pºâ,¥[¤F«Ü¦h¤½¦¡¦b¸Ì­±
¦A­«¶]VBA¦X¨Ö¤@¦¸¸ê®Æ,´N¨S¿ìªk§ì¨ì¥þ³¡63­ÓSheet¤F, ´N¤@ª½¥u¯à§ì¬Y´X­Ósheet(¤j·§´N4±i)¦Ó¤w
·Ó²z¨Ó»¡·s¼W¨º±i­pºâªºªí®æ,ÁÙ¦³¸Ì­±¤½¦¡À³¸Ó³£¸òVBA¨S¦³Ãö«Y( ¦]¬°¨S¦³§ì¨º±i­pºâªí®æªº¸ê®Æ),¥i¬O´N¤@ª½§ì¤£¨ì¸ê®Æ:'(
¬ã¨s¤F¦n¤[³£ÁÙ¬O¤£¯à§ì¦^­ì¥»63­Ósheet¸Ìªº¸ê®Æ,·Q°Ý°Ý¬°¤°»ò·|³o¼Ë?
·|¬OCodeªº°ÝÃD¶Ü?¨º¬°¤°»ò¤@¶}©l¶]¯à¥Î©O?®³¨ì­ì©lÁÙ¨S°µ­pºâªºªí®æ¤S¥i¥H¶]?

ªþ¤W§Ú¼gªºµ{¦¡½X
Sub Merge()
'
'
   Sheets("summary").Select
   Range("A2").Select
   Range(Selection, Selection.End(xlToRight)).Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.ClearContents
  For x = 4 To 66
  Sheets(x).Select
  Application.ScreenUpdating = False
  Range("A2").Select
  Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("summary").Select
  ActiveCell.Select
  ActiveSheet.Paste
  Range("A:A").End(xlDown).Select
  ActiveCell.Offset(1, 0).Select
  
  
  
  Next x
  End Sub
  

³Â·Ð¤j®aÀ°À°¦£¤F~~

ÁÂÁ¼ӤWªº¦^Âгá

§ÚªºÀɮפӤj¤F À³¸Ó¨S¿ìªk¶K¤W¨Ó
ªº½T¬O¥Î¿ýªº¦A©éªº(¨S¦³¿ìªk¥þ³¡¦Û¤v¼g°Ú,«¢«¢)
§Úªº·s¼Wªí®æ¦b«e­±3­Ósheet¸Ì¨S¿ù ­ì©l¸ê®Æ±q²Ä4±isheet¨ì²Ä66±i
·Q­nªº¥\¯à¬O§â²Ä4±isheet¨ì²Ä66±iªº¸ê®Æ(¨C±isheet¸ê®Æµ§¼Æ¤£¤@¼Ë)¥þ³¡¶K¨ìsummary(¦b²Ä2­Ósheet)ªº­¶­±
µM«á¦A¥t¥~°µ¤@±iªí®æ­pºâsummay¸Ìªº¸ê®Æ±o¨ì§Ú­nªºµª®×(­pºâªí®æ¬Osheet3)
·í§Ú¦b­ì©l¸ê®Æ¤W°µ­×§ï®É,¦A¶]¦¸¥¨¶°
§Ú­×§ï¤F¸ê®Æ·|¦A­«·s¶K¨ìsummary ³o±iªí µM«á¹Bºâªºªí®æ·|®Ú¾Ú³o±iªíªº·s¸ê®Æ
¶]¥X·sªº¥B¥¿½Tªº§Ú­nªºµª®×

¤£ª¾¹D³o¼Ë¸ÑÄÀ°÷¤£°÷²M·¡
¬O¤£¬O¤@©w»Ý­n­ì©lÀÉ®×

·PÁ¤j®a°Õ

TOP

¦^´_ 4# stillfish00
Hello ,
§Ú¥[¤FApplication.ScreenUpdating = True ¦b«á­±¤F
¦A­«¶]¤@¦¸ ½T¹ê¬Ý¨ì¸õ¨ì¨C¤@­¶¦b¹B¦æ
¥i¥H·í¶]§¹¦^¨ìsummary ªº®É­Ô
¤S¥u¬Ý¨ìÁ`¸ê®Æµ§¼Æ ¥u¦³¬Y´X­Ósheet¸Ìªº¸ê®Æ¤F ÁÙ¬O¨S¦³¥þ¶K¹L¨Ó

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD