excel表格隔行删除怎么删除

Question

如题所述

Answer 1

EXCEL中隔行删除
在一列中输入以下公式：=mod(row(),2)，然后自动筛选1，删除奇数行，自动筛选0，则删除偶数行。
在excel中如何快速隔行删除？
用数据筛选功能，将所有空白行选出，这时非空白行就被隐藏起来。然后选择这些空白行，删除即可

Answer 2

excel表格隔行删除可以用下面的代码，如果清除偶数行，代码：
Sub Macro1()
r1 = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
Rows(2).Select
For i = 4 To r1 Step 2
Application.Union(Selection, Rows(i)).Select
Next
Selection.ClearContents
End Sub
如果清除奇数行，代码
Sub Macro1()
r1 = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
Rows(1).Select
For i = 3 To r1 Step 2
Application.Union(Selection, Rows(i)).Select
Next
Selection.ClearContents
End Sub