快速删除奇数行或偶数行的几种方法 删除指定行

第一种方法是筛选法，在数据的最前面插入空白列，偶数行不输入任何数据，奇数行输入1，然后选中这两个单元格，按住右键拖动--复制单元格。

然后选中标题行，点击数据--筛选。

点击筛选下拉按钮，选择奇数行数据即数字1，这样奇数行被筛选出来，删除即可。

筛选全部，这样剩下的偶数行数据就显示出来，如图。

另一种方法是VBA代码法，打开VBA编辑器，点击插入--模块，在其中输入以下代码：Sub DeleteRows()Dim n,i As Longn=Range('A65536').End(xlUp).RowIf n Mod 2=0 Then n=n-1For i=n To 1 Step-2Rows(i).DeleteNextEnd Sub

关闭编辑器，在工作表菜单栏点击开发工具--宏，选择刚才输入的代码名称，点击执行，效果如图。

另一种方法是函数法，输入公式=IF(MOD(ROW(),2)=0,'偶数行','奇数行')，然后下拉，如图。

公式得出结果后，再筛选出奇数行删除，步骤同筛选法。