如果單元格在Excel中包含零，如何刪除整行？

有時，如果在Excel中該單元格包含零，則希望刪除整行，如果其中有幾個，則可以將它們一一刪除。但是，需要刪除幾百行包含零的行嗎？您可以選擇以下一種棘手的方法來解決它。

如果單元格中包含零與Excel中的篩選器功能刪除行
 如果Excel中的VBA單元格包含零，則刪除行
 如果單元格包含零，則使用Kutools for Excel刪除行

如果單元格中包含零與Excel中的篩選器功能刪除行

您可以使用“過濾器”功能基於某一列中的零值過濾掉所有行，然後在以後刪除所有可見行。請執行以下操作。

1.選擇包含要刪除其整個行的零值的列單元格，然後單擊數據 > 篩選。看截圖：

2.然後，在所選列的第一個單元格中顯示一個下拉箭頭，單擊箭頭，然後選擇 號碼過濾器 > 等於從下拉列表中選擇。

doc如果為零則刪除1

3。在裡面 自定義自動篩選 對話框中，輸入數字 0 進入文本框，如下圖所示，然後單擊 OK 按鈕。

doc如果為零則刪除1

4.然後，該特定列中的所有零值單元格將被過濾掉。請選擇過濾器範圍內的所有可見單元格，然後右鍵單擊它們，選擇 刪除行 從右鍵單擊菜單中。然後在彈出的提示框中，點擊 OK 按鈕。看截圖：

doc如果為零則刪除1

5.現在，所有可見行均被刪除。您可以點擊數據 > 篩選再次顯示所有沒有零值單元格的數據。看截圖：

doc如果為零則刪除1

Kutools for Excel的 選擇特定的單元格 該實用程序可以幫助您輕鬆地選擇整個行（如果在某個範圍內存在零值），然後您可以手動快速快速刪除所有選定的行，而不會出現任何錯誤。
立即下載並試用！ (30-天自由行)

如果Excel中的VBA單元格包含零，則刪除行

本節將向您展示VBA方法，以刪除Excel中某一列中存在零值的所有行。

1。按 Alt + F11鍵 同時顯示 Microsoft Visual Basic for Applications 窗口。

2.在“ Microsoft Visual Basic for Applications”窗口中，單擊“ 插入 > 模塊，然後將以下VBA代碼複製並粘貼到模塊窗口中。

VBA：如果工作表中的某些列範圍內存在零值，則刪除整個行

Sub DeleteZeroRow（）'Updateby20140616 Dim Rng作為範圍Dim WorkRng作為錯誤發生時的範圍恢復下一個xTitleId =“ KutoolsforExcel” Set WorkRng = Application.Selection Set WorkRng = Application.InputBox（“ Range”，xTitleId，WorkRng.Address，類型：= 8 ）Application.ScreenUpdating = False設置Rng = WorkRng.Find（“ 0”，LookIn：= xlValues）如果不是Rng則為空，則Rng.EntireRow.Delete結束，如果循環而不是Rng則為空Application.ScreenUpdating =真端

3。按 F5 運行代碼的關鍵，在彈出窗口中 Kutoolsfor Excel 對話框中，根據其中的零值選擇要刪除整個行的列範圍，然後單擊 OK 按鈕。看截圖：

doc如果為零則刪除1

然後，將立即刪除基於指定列範圍內零值的所有行。

doc如果為零則刪除1

如果單元格包含零，則使用Kutools for Excel刪除行

對於許多Excel用戶，使用VBA代碼在Excel中刪除數據很危險。如果您不完全信任VBA代碼，我們建議您在此處嘗試 選擇特定的單元格 的效用 Excel的Kutools.

申請前 Excel的Kutools請 首先下載並安裝.

1.選擇列範圍，您將基於其中的零值刪除整個行，然後單擊 庫工具 > 選擇 > 選擇特定的單元格。看截圖：

2。在裡面 選擇特定的單元格 對話框，您需要：

（1）選擇整行在選項 選擇類型 部分。

（2）選擇等於在第一 特定類型 下拉列表，然後輸入數字 0 進入文本框。

（3）點擊 OK 按鈕。

3.彈出一個對話框，告訴您已選擇了多少行，單擊 OK 按鈕。現在，所有具有零值的行都位於指定的列範圍內。請右鍵單擊任何選定的行，然後單擊刪除在右鍵菜單中。看截圖：

doc如果為零則刪除1

現在，指定列中存在的所有值為零的行將立即刪除。看截圖：

doc如果為零則刪除1

如果您想免費試用（30-day) 這個實用程序， 請點擊下載，然後按照上述步驟進行操作。

如果單元格包含零，則使用Kutools for Excel刪除行

刪除Excel中不包含某些文本的行？

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...

留言 (15)

還沒有評分。成為第一位評論！

湯姆·B

大約8年前

#13382

網站主持人對此評論進行了最小化

這是一個救生員！

斯科特

大約7年前

#14679

網站主持人對此評論進行了最小化

您的 VB 代碼不起作用。它刪除所有在 10s 位置為零的行。我希望沒有人真正使用它，因為他們會刪除數據......

安德魯

大約7年前

#15202

網站主持人對此評論進行了最小化

我修改了上面的代碼為我工作。我想刪除 C 行中包含“Delete”的每一行。 Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) If Not Rng is nothing Then Rng.EntireRow.Delete End If Loop While Not Rng is nothing Application.ScreenUpdating = True End Sub

安德魯

大約7年前

#15203

網站主持人對此評論進行了最小化

我修改了下面的代碼為我工作。這刪除了 C 列中 C 列單元格中具有“Delete”的每一行。 Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete" , LookIn:=xlValues) If Not Rng is nothing Then Rng.EntireRow.Delete End If Loop While Not Rng is nothing Application.ScreenUpdating = True End Sub

匿名安德魯

大約6年前

#15204

網站主持人對此評論進行了最小化

感謝您的回复，為我工作

約阿夫安德魯

大約3年前

#15205

網站主持人對此評論進行了最小化

嗨，
它對我有用，非常感謝。
如果我有多張紙？我如何為所有工作表運行腳本 1 次？

J墨菲

大約7年前

#15486

網站主持人對此評論進行了最小化

為我的目的而修改--感謝您的幫助： Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "設置您要刪除未使用的範圍 0 數量行來自" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select 設置 Rng = WorkRng.Find("0 ", LookIn:=xlValues) If Not Rng is nothing Then Rng.EntireRow.Delete End If Loop While Not Rng is nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Removed FG 列中的 0 的 ROWS——現在正在計算——請稍候” Application.Calculation = xlAutomatic End Sub

R. Arunkumar

大約6年前

#17439

網站主持人對此評論進行了最小化

嗨，親愛的，我需要一個代碼來隱藏工作表 0 中“N”列上 value=1 的行。當更新工作表 2 上的詳細信息時，“N”列的值會改變。那是時間需要取消隱藏該行。是否可以使用 Excel 公式（沒有宏和 Excel 過濾器）來做到這一點。

社日

大約6年前

#17969

網站主持人對此評論進行了最小化

這對我不起作用。它將我選擇的列和相鄰列中的所有值都更改為零。我一定做錯了什麼！

水晶社日

大約3年前

#17970

網站主持人對此評論進行了最小化

嗨，雪莉，
該代碼在我的情況下運行良好。您使用哪個 Excel 版本？

即時報告

雪莉·多姆水晶

大約3年前

#17971

網站主持人對此評論進行了最小化

嗨水晶。我在兩年前發布了這個，所以我猜我想通了。不過謝謝你的回复。

即時報告

客人

大約4年前

#27975

網站主持人對此評論進行了最小化

將此插入 VB 新模塊中。
這是使用 InputBox 刪除包含該單詞的行。

屬性 VB_Name = "FindDelRowByWord"
子 FindDelRow()
'Updateby20140616
昏暗範圍
將 WorkRng 調暗為範圍
將 xRep 調暗為字符串
在錯誤恢復下一頁
xTitleId = "ZOK 工具"
設置 WorkRng = Application.Selection
設置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("要刪除的行：", "ZOK 工具", , , , , 2)
Application.ScreenUpdating = False
Do
設置 Rng = WorkRng.Find(xRep, LookIn:=xlValues)
如果不是 Rng 什麼都不是，那麼
Rng.EntireRow.Delete
如果結束
Loop While Not Rng 什麼都不是
Application.ScreenUpdating = True
END SUB

安德魯·羅薩萊斯客人

大約3年前

#27976

網站主持人對此評論進行了最小化

如果您有一張大工作表，並且您想保留一些行，而其他行包含某些關鍵字並刪除它們，該怎麼辦？ kutools 對我有用，但是對於一個關鍵字，很多行都有那個關鍵字，行被刪除了，我只想有多個關鍵字來做同樣的事情？這對上面的代碼有用嗎？

水晶安德魯·羅薩萊斯

大約3年前

#27977

網站主持人對此評論進行了最小化

美好的一天，
Kutools 可以同時處理兩個關鍵詞。您需要使用“And”或“Or”啟用它的第二個條件。希望我能幫上忙。

即時報告

盧斯·阿里斯蒂

大約2個月前

#41228

網站主持人對此評論進行了最小化

Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?

這裡還沒有評論

留下你的意見

以訪客身份發帖

登入

名稱（必填）

電子郵件（必填）

評價此帖子：

重設

0 字符

我同意附帶條約