本教程向您展示了如何在Microsoft Excel中有效地刪除其他每一行或任何第n行。我們將介紹兩種方法：過濾和VBA代碼。

在許多情況下，需要刪除特定行。例如，您可能需要保留偶數(shù)數(shù)周的數(shù)據(jù)，同時將奇數(shù)周的數(shù)據(jù)傳輸?shù)絾为毜谋砀?。該過程的核心涉及選擇目標行，然后刪除它們。

方法：

• 通過過濾刪除其他行
• 用VBA刪除備用行
• 刪除每一行

方法1：使用過濾刪除其他行

此方法使用輔助列和Excel的過濾功能。

1. 幫助列：數(shù)據(jù)旁邊的新列。在此列的第一個單元格中輸入=MOD(ROW(),2) ，然后將其拖動。此公式為偶數(shù)行返回0，奇數(shù)行返回1。

   

2. 過濾：將過濾器應用于輔助列（數(shù)據(jù)> sort＆filter>過濾器）。選擇0（刪除均勻的行）或1（刪除奇數(shù)行）。

   

3. 刪除：選擇可見行（與您的過濾器標準匹配的行），右鍵單擊，然后選擇“刪除行”。

   

4. 卸下過濾器：關(guān)閉過濾器（再次單擊“過濾器”按鈕）。刪除輔助列。

   

   現(xiàn)在，您的工作表僅包含您要保留的行。

   

提示：要移動行而不是刪除它們，請在刪除它們并將其粘貼到新位置之前復制過濾后的行。

方法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作為整數(shù)
    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
  如果結(jié)束
結(jié)束子

1. 打開VBA編輯器（ALT F11）。

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

3. 將代碼粘貼到模塊中。

4. 運行宏（F5）。

5. 提示時選擇數(shù)據(jù)范圍。

   

   宏將刪除所選范圍內(nèi)的所有其他行。

   

方法3：刪除每一行

這擴展了過濾方法。在輔助列中使用此公式：

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

在哪里：

• m是第一個數(shù)據(jù)行減1的行號。
• n是要刪除的第n行。

例如，要刪除從第2行開始的每個第三行，use =MOD(ROW()-1,3) 。然后過濾0并刪除可見行。

這使您可以有效地刪除任何第n行。請記住根據(jù)您的起始行調(diào)整m

以上是如何刪除Excel中的每一行或每一行的詳細內(nèi)容。更多信息請關(guān)注PHP中文網(wǎng)其他相關(guān)文章！