Excel 怎么删除 批量删除偶数行的内弄留下单数行的

你可以插一列作为中间列，在中间列的第一和第二行分别填入1和2，选中这两个单元格，鼠标双击右下角的小十字，在下拉框中选复制单元格，此时中间列奇数行均以1填充，偶数行均以2填充；选中中间列，点数据-筛选-自动筛选，点击倒三角下拉框，选1则奇数行全被筛选出来，全选删除然后取消筛选条件，把中间行删掉就行了。

在菜单里选择工具-宏-录制新宏,点击.

在弹出的录制对话框里选择确定,可以在设置快捷键里输入一个"q",===注意是小写的

然后直接在弹出的宏录制窗口里点停止(就是小方块图案).

然后再选择工具-宏-VISUAL BASIC 编辑器,点击.
在模块1里有刚才录制的宏的代码.里边只有注释语句.将下面代码粘贴进去.粘到SUB MACRO1()和END SUB之间.

Dim i As Integer
For i = 1 To 19 Step 2 这里的19你可以随便改成你需要的数字.
Rows(i).Select
Selection.ClearContents
Next i
然后关闭编辑器,在EXCEL里按快捷键(CTRL+q)就可以了.

假设表格第一行为标题行，在表格最右侧添加辅助列，如H列。
在H2单元格输入：=MOD(ROW(H2),2)，下拉至表尾，这样偶数行的值都为0，奇数行的值都为1，使用自动筛选或“全部查找”功能，查找出所有为“0”的单元格，删除行即可。

找一整列空列假如A列A1到A65536全为空，在A1输入公式,输入公式 =mod(row(),2) 下拉，
选中A列,同时按下ctrl+f打开查找对话框，在提示框里输入1,点击“全部查找”,在下面查找到的列表框中选中一项,再同时按下 CTRL+A,关闭查找框,在该列中任意一个已选中的单元格上右击(直接右击,别有其他的动作,否则失败),删除,整行删除,OK.

在数据后一列输入=mod(row(),2)
再往下填充，复制全列，右击》选择性粘粘贴为数值》确定》排序，删了0的行就是了