ªð¦^¦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~~

¥»©«³Ì«á¥Ñ n7822123 ©ó 2015-12-2 12:16 ½s¿è

¦^´_ 1# Convulse


    §A·s¼Wªºªí®æ¦³¦b«e3­Ósheet¤§¤¤¶Ü?

«Øij§Aªþ¤WÀɮסA»¡©ú§A­n°µ¨ìªº¥\¯à¡A§Ú·Q¦³¤H·|¬°§A¸Ñµªªº¡A§Aªºµ{¦¡À³¸Ó¬O¥Î¿ýªº¦A«÷´ê¦Ó¦¨(«D±`¦hªºselect)¡C

TOP

ÁÂÁ¼Ӥ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

¦^´_ 1# Convulse
§Ú¬Ý¨ì³o¦æÃö³¬¿Ã¹õ§ó·s
Application.ScreenUpdating = False

¬O§_³Ì«á¦³­«·s³]¬°True
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

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

¦^´_ 5# Convulse


    ¬Y´X­¶ªº¸ê®Æ¬O§_¬O¥u¦³³Ì«á´X­¶ªº¸ê®Æ?¦pªG¬Oªº¸Ü¨ºÀ³¸Ó¬O§â«e­±ªº¸ê®ÆÂл\¤F¡C

TOP

¦^´_ 1# Convulse


    §A­n¤£­n«öF8¤@¨B¤@¨B°õ¦æ¬Ý¬Ý¡A¬Ý°ÝÃD¬O¥X¦b­þ¡AµM«á¦A¥h·Q¸Ñ¨Mªº¿ìªk¡C

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-4 11:28 ½s¿è

¦^´_ 1# Convulse
°õ¦æ¬Ý¬Ý¡C
  1. Sub Merge()
  2. '
  3. '
  4.     Sheets("summary").Select
  5.     Range("A2").Select
  6.     Range(Selection, Selection.End(xlToRight)).Select
  7.     Range(Selection, Selection.End(xlDown)).Select
  8.     Selection.ClearContents
  9.     For x = 4 To 66
  10.         Sheets(x).Select
  11.         Application.ScreenUpdating = False
  12.         Range("A2").Select
  13.         Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  14.         Application.CutCopyMode = False
  15.         Selection.Copy
  16.         Sheets("summary").Select
  17.         ActiveCell.Select
  18.         ActiveSheet.Paste
  19.         ' Range("A:A").End(xlDown).Select   ' Watch :  ActiveCell.Address : "$A$1048576" : String
  20.         ' ActiveCell.Offset(1, 0).Select    ' Watch :  <À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~> : Integer
  21.         ' ¨Ì·Ó©p¼¶¼g¤è¦¡­×§ï¦¨¦p¤U¡A¸Õ¸Õ¬Ý¡I (A Äæ¦p¬°ªÅ­È¡A.......¡A¨ä¦ì§} = "$A$1048576")
  22.         Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
  23.    Next x
  24. End Sub
½Æ»s¥N½X

TOP

¨SÀÉ®×, ¨S¯u¬Û, ­n²q¨ì´X®É???
ÀɮפӤj, ¥i§R¥h³¡¥÷¦A¤W¶Ç!

TOP

¦^´_ 5# Convulse
¦^´_ 9# ­ã´£³¡ªL

»¡ªº¤]¬O¡A´N¦p ­ã´£³¡ªL ª©¥D©Ò¨¥¡G
¡uÀɮפӤj, ¥i§R¥h³¡¥÷¦A¤W¶Ç!¡v¡C
Miss Convulse¡A©p¥i±N¨C¤@¤u§@­¶
ªº¸ê®Æ¶È«O¯d«e´X¶µ(¦C)¡AµM«á¦A±N
À£ÁY¤W¶Ç¡C¦p¦¹ÀɮפW¶Çµ´¹ï OK ªº¡C
»»´ú¤£¦p¹ê»Úºt½m¡I

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD