c_c_lai

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

c_c_lai

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