stillfish00

¦^´_ 1# luke
°ÝÃD¤£¬O«ÜÀ´¡A¦pªG¬O«ü´¡¤J¼ÐÃD¦C¡A²£¥Í¦p"µ²ªG"ªº¤u§@ªí :

1. Sub TEST()
   
2.     Dim iPageCount As Integer
   
3.    
   
4.     Application.ScreenUpdating = False
   
5.     With Sheets("sheet1")
   
6.         iPageCount = (.[A7].CurrentRegion.Rows.Count - 2) / 14
   
7.         For i = 1 To iPageCount * 22 Step 22
   
8.             If i = 1 Then
   
9.                 .Cells(5, "M").Value = 1
   
10.                 .Cells(5, "O").Value = iPageCount
    
11.             Else
    
12.                 .Range("A1:O8").Copy
    
13.                 .Cells(i, 1).Insert Shift:=xlDown
    
14.                 .Cells(i + 4, "M").Value = Int(i / 22) + 1
    
15.             End If
    
16.         Next
    
17.         Application.CutCopyMode = False
    
18.     End With
    
19.     Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X