[µo°Ý] ¿ù»~1004

li_hsien

GOOGLE¤F¤@¤U¦n¹³±`±`¦³³oºØ±¡ªp

¶]¨ì ".Range(Cells(j, 1), Cells(j, 23)).Copy"
´Nµo¥Í¿ù»~¤F
§Ú¤@ª½§ì¤£¥X°ÝÃD@@

§Ú³æ¿W§ì¥X¿ù»~¨º¦æ°õ¦æÁÙ¥i¥H¶]

¤£ª¾¬O­þÃä¥X¿ù¤F

³Â·Ð¦U¦ì¤j¤jÀ°À°¦£  ÁÂÁ  :  )

1. Sub CommandButton1_Click()
   
2. 
   
3.     For i = 5 To 10
   
4.         
   
5.         MsgBox "Sheets: " & i
   
6.         
   
7.         With Worksheets(i)
   
8.         
   
9.         row_from = .Range("A35536").End(xlUp).row
   
10.         
    
11.         For j = 2 To row_from
    
12. 
    
13.             If .Range("S" & j) <> 0 Then
    
14.             MsgBox "Äæ¦ì: " & j
    
15.             row_to = Worksheets(4).Range("A35536").End(xlUp).row + 1
    
16.             .Range(Cells(j, 1), Cells(j, 23)).Copy      <------¿ù»~1004
    
17.             Worksheets(4).Cells(row_to, 1).PasteSpecial Paste:=xlPasteAll
    
18.             .Range(Cells(j, 1), Cells(j, 23)).Interior.Color = 65535
    
19. 
    
20.             End If
    
21.         Next
    
22.         End With
    
23.     Next
    
24.    
    
25. End Sub

½Æ»s¥N½X

li_hsien

¦^´_ 2# GBKEE


ªO¤j§A¯uªº¬O±Ï¬P!!!

ÁÂÁ§A

·Q¯}ÀY¤@ª½§ä¤£¨ì ­ì¨Ó¬O®t¦b¨º¤p¤pªº¤@ÂI@@

li_hsien

¦^´_ 4# GBKEE

§ÚÁÙ¯u¤£ª¾¦³³o·L§®ªº®t²§

¦ý¦pªG .Range(.Cells(j, 1), .Cells(j, 23)).Copy

©ñ¦b¤@¯ë¼Ò²Õ(Module)©Î ThisWorkbook¤W

¤]¥i¥H¹B¦æ¶Ü???