Question

那位大神帮我编辑一个宏命令，在EXCEL中实现指定删除第5行到第10行；然后隔5行，在删除和之前一样的行数

需编辑一个循环命令，表中有很多行数据

Answer 1

你的意思是删除5--10；15--20；25--30；……行，对吗？是的话，可以用下面的宏语句
Sub 删除行()
m = [A65536].End(xlUp).Row '取得A列总的行数
n = Int(m / 10) + 1 '计算可以删除多少组5-10行这样的
For i = n To 1 Step -1
Sheets("sheet1").Range(Rows(10 * i - 5), Rows(10 * i)).Delete '删除工作表sheet1中指定的行
Next i
End Sub

追问

大神，我要删除18-32；37-51；56-70；。。。。。这怎么改你的代码，中间间隔4行

Answer 2

Sub 宏1()
Dim j As Long, k As Long
j = Cells(Rows.Count, 1).End(3).Row
k = 5
Do While k < j
    Range(Rows(k), Rows(k + 5)).Select
    Selection.Delete Shift:=xlUp
    k = k + 5
    j = j - 6
Loop
End Sub

Answer 3

你这是隔四行，删6行，再个5行删6行，什么规律？