excel 隔行删除指定行？

Question

不使用辅助列，用vba如何编写，例如：要删除从第5行开始到500行中的奇数行。

Answer 1

举例说明。

例如有表格如图：

第一步：在B2输入公式=MOD(ROW(),2),然后将该公式下拉至B20.结果如图：

第二步：选择B1，点击排序和筛选-筛选。

第三步：设置筛选条件：辅助列=1.结果如图：

第四步：选中数据区域，如图：

第五步：点击鼠标右键-删除。修改筛选条件为全部，结果如图：

Answer 2

思路是从500行开始到第5行，逢奇数行删除。我也不熟VBA。

Answer 3

Sub 隔行删除指定行()
Dim i%, n%
'n为楼主所需填行的范围行
n = 500
For i = 5 To n
Rows([i] & ":" & [i]).Delete Shift:=xlUp
Next i
End Sub本回答被提问者采纳