使用辅助列或筛选功能

以下是批量删除Excel中奇数行的几种方法，供您选择适合的操作方式：

方法一：使用辅助列筛选

1. 添加辅助列

   在数据列旁边插入一个新列（如F列），输入公式 =MOD（ROW（）,2），按回车后向下填充至数据末尾。此公式会为奇数行返回1，偶数行返回0。

2. 隐藏偶数行

   选中辅助列，点击「数据」→「筛选」，将辅助列设为筛选条件为 FALSE，隐藏所有偶数行。

3. 删除奇数行

   再次点击筛选，将辅助列设为 TRUE，删除所有奇数行。

4. 删除辅助列

   删除辅助列后，数据恢复原状。

方法二：使用排序与筛选功能

1. 添加排序依据

   在数据列旁边插入新列（如B列），输入公式 =INT（ROW（）/2），按回车后向下填充。奇数行结果为1，偶数行为0。

2. 自定义排序

   选中数据区域，点击「数据」→「排序与筛选」→「自定义排序」，按B列进行排序。

3. 删除奇数行

   在排序后的数据中，选中B列值为1的行（即奇数行），右键删除。

方法三：使用条件格式高亮（辅助操作）

1. 高亮奇数行

   输入公式 =MOD（ROW（）,2） 到辅助列，按回车后填充。使用条件格式将结果为1的行高亮显示。

2. 手动删除

   通过高亮行，手动选择并删除奇数行。

方法四：使用VBA宏（适合大量数据）

1. 打开VBA编辑器

   按 Alt + F11 打开VBA编辑器，插入新模块并输入以下代码：

   Sub DeleteOddRows()
       Dim n As Long
       n = Cells(Rows.Count, "A").End(xlUp).Row
       If n Mod 2 = 0 Then n = n - 1
       For i = n To 1 Step -2
           Rows(i).Delete
       Next i
   End Sub
   

   该代码从最后一行开始，以2为步长删除奇数行。

2. 运行宏

   按 F5 运行宏，完成删除操作。

注意事项

• 数据备份 ：操作前建议备份数据，防止误删。

• 辅助列清理 ：使用筛选或删除辅助列后，需手动删除该列。

• 宏安全 ：使用VBA宏时，确保启用「开发工具」选项卡，并谨慎运行代码。

以上方法可根据数据量选择手动或批量操作，小规模数据推荐使用辅助列或筛选功能，大规模数据建议使用VBA宏以提高效率。