lpk187

¦^´_ 17# lcctno

¬JµM³£¬O¦V¤Ucopy¥i¤£¥u½Æ»s¡B¶K¤W
¦ó¤£¦Ò¼{¦Û°Ê¶ñº¡AutoFill

1. Sub xx()
   
2. Dim j4%
   
3. j4 = Sheets("DATA").[j4]
   
4. For i = 1 To 10
   
5.     With Sheets("ªR" & i)
   
6.         dl = .[a65536].End(xlUp).Row
   
7.         If j4 <> dl Then .Rows(dl & ":" & dl).AutoFill _
   
8.         Destination:=.Rows(dl & ":" & j4), Type:=xlFillDefault
   
9.     End With
   
10. Next
    
11. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 19# lcctno


    §A¨Sª`·N§Ú¼gªºµ{¦¡¡C¥u¦³À°§A¶ñº¡¨C¶g»Ý¶ñº¡ªº´X¦æ¡C¦Ó¥B©Ò»Ý®É¶¡¸û¤Ö¡A´Nºâ¶ñº¡¦Ü65536³£OKªº
j4 = Sheets("DATA").[j4]''¬°²×¤î¦æ
dl = .[a65536].End(xlUp).Row¬°³o¶gªº¶}©l¦æ¡C