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

在許多情況下，需要?jiǎng)h除特定行。例如，您可能需要保留偶數(shù)數(shù)週的數(shù)據(jù)，同時(shí)將奇數(shù)週的數(shù)據(jù)傳輸?shù)絾为?dú)的表格。該過程的核心涉及選擇目標(biāo)行，然後刪除它們。

方法：

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

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

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

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

   

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

   

3. 刪除：選擇可見行（與您的過濾器標(biāo)準(zhǔn)匹配的行），右鍵單擊，然後選擇“刪除行”。

   

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

   

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

   

提示：要移動(dòng)行而不是刪除它們，請(qǐng)?jiān)趧h除它們並將其粘貼到新位置之前複製過濾後的行。

方法2：用VBA刪除備用行

此VBA宏可自動(dòng)化該過程：

 sub delete_alternate_rows_excel（）
  昏暗的surecerange作為範(fàn)圍
  SET SOURCERANGE = Application.Selection
  set sourcerange = application.inputbox（“ range：”，“選擇範(fàn)圍”，sourcerange.address，type：= 8）
  如果Sourcerange.Rows.Count> = 2，則
    昏暗的FirstCell作為範(fàn)圍
    Dim Rowindex作為整數(shù)
    application.screenupdating = false
    對(duì)於rowindex = Sourcerange.Rows.Count-（Sourcerange.Rows.Count Mod 2）至1步-2
      設(shè)置FirstCell = Sourcerange.cells（Rowindex，1）
      firstCell.entirerow.delete
    下一個(gè)
    application.screenupdating = true
  如果結(jié)束
結(jié)束子

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

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

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

4. 運(yùn)行宏（F5）。

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

   

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

   

方法3：刪除每一行

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

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

在哪裡：

• m是第一個(gè)數(shù)據(jù)行減1的行號(hào)。
• n是要?jiǎng)h除的第n行。

例如，要?jiǎng)h除從第2行開始的每個(gè)第三行，use =MOD(ROW()-1,3) 。然後過濾0並刪除可見行。

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

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