如何删除Excel中的每一行或每一行

本教程向您展示了如何在Microsoft Excel中有效地删除其他每一行或任何第n行。我们将介绍两种方法：过滤和VBA代码。

在许多情况下，需要删除特定行。例如，您可能需要保留偶数数周的数据，同时将奇数周的数据传输到单独的表格。该过程的核心涉及选择目标行，然后删除它们。

方法：

• 通过过滤删除其他行
• 用VBA删除备用行
• 删除每一行

方法1：使用过滤删除其他行

此方法使用辅助列和Excel的过滤功能。

1. 帮助列：数据旁边的新列。在此列的第一个单元格中输入=MOD(ROW(),2) ，然后将其拖动。此公式为偶数行返回0，奇数行返回1。

   

2. 过滤：将过滤器应用于辅助列（数据> sort＆filter>过滤器）。选择0（删除均匀的行）或1（删除奇数行）。

   

3. 删除：选择可见行（与您的过滤器标准匹配的行），右键单击，然后选择“删除行”。

   

4. 卸下过滤器：关闭过滤器（再次单击“过滤器”按钮）。删除辅助列。

   

   现在，您的工作表仅包含您要保留的行。

   

提示：要移动行而不是删除它们，请在删除它们并将其粘贴到新位置之前复制过滤后的行。

方法2：用VBA删除备用行

此VBA宏可自动化该过程：

 sub delete_alternate_rows_excel（）
  昏暗的surecerange作为范围
  SET SOURCERANGE = Application.Selection
  set sourcerange = application.inputbox（“ range：”，“选择范围”，sourcerange.address，type：= 8）
  如果Sourcerange.Rows.Count> = 2，则
    昏暗的FirstCell作为范围
    Dim Rowindex作为整数
    application.screenupdating = false
    对于rowindex = Sourcerange.Rows.Count-（Sourcerange.Rows.Count Mod 2）至1步-2
      设置FirstCell = Sourcerange.cells（Rowindex，1）
      firstCell.entirerow.delete
    下一个
    application.screenupdating = true
  如果结束
结束子

1. 打开VBA编辑器（ALT F11）。

2. 插入模块（插入>模块）。

3. 将代码粘贴到模块中。

4. 运行宏（F5）。

5. 提示时选择数据范围。

   

   宏将删除所选范围内的所有其他行。

   

方法3：删除每一行

这扩展了过滤方法。在辅助列中使用此公式：

=MOD(ROW() - *m*, *n*)

在哪里：

• m是第一个数据行减1的行号。
• n是要删除的第n行。

例如，要删除从第2行开始的每个第三行，use =MOD(ROW()-1,3) 。然后过滤0并删除可见行。

这使您可以有效地删除任何第n行。请记住根据您的起始行调整m

以上是如何删除Excel中的每一行或每一行的详细内容。更多信息请关注PHP中文网其他相关文章！