georgema

½Ð¸Õ¸Õ¬Ý¤U¦Cµ{¦¡¡G

1. Sub delRows()
   
2.     Dim i&, j&, x%, y%
   
3.     j = Range("a1").End(xlDown).Row
   
4.     MsgBox "j = " & j
   
5.     j = j / 42
   
6.     MsgBox "New j = " & j
   
7.     x = 1
   
8.     y = 16
   
9.     For i = 1 To j
   
10.         If i = 1 Then
    
11.             Rows(x & ":" & y).Select
    
12.             Selection.Delete Shift:=xlUp
    
13.         Else
    
14.             x = x + 42
    
15.             y = y + 42
    
16.             Rows(x & ":" & y).Select
    
17.             Selection.Delete Shift:=xlUp
    
18.         End If
    
19.     Next i
    
20. End Sub

½Æ»s¥N½X