如何在Excel中根據單元格值刪除行?
要基於Excel中的單元格值快速刪除或刪除多行,您可能需要先選擇包含特定單元格值的整行,然後再刪除它們。 似乎沒有一種快速的方法來刪除基於單元格值的行,而是使用VBA代碼。 這裡有一些快速技巧可以幫助您。
使用查找和替換功能根據單元格值刪除行
在Excel中,您可以應用功能強大的“查找和替換”功能輕鬆地基於某個單元格值刪除行。 請執行以下操作:
1。 選擇要根據某些單元格值刪除行的範圍,然後按並打開“查找和替換”對話框 Ctrl + F 鍵同時。
2。 在“查找和替換”對話框中,請輸入特定的單元格值(在本例中,我們輸入 梭) 進入 Find what 框中,然後單擊 Find All 按鈕。 請參閱下面的第一個屏幕截圖:
![]() |
![]() |
3。 在“查找和替換”對話框的底部選擇所有搜索結果,然後關閉此對話框。 (備註:您可以選擇搜索結果之一,然後 Ctrl + A 鍵以選擇所有找到的結果。 請參閱上面的第二個屏幕截圖。)
然後您可以看到所有包含特定值的單元格都被選中。
4。 繼續右鍵單擊所選單元格,然後選擇 Delete 從右鍵單擊菜單中。 然後檢查 Entire row 在彈出的刪除對話框中選擇選項,然後單擊 OK 按鈕。 現在,您將看到所有包含特定值的單元格都被刪除了。 查看以下屏幕截圖:
![]() |
![]() |
然後已經基於該特定值刪除了整行。
使用VBA代碼根據單元格值刪除行
使用以下VBA代碼,您可以快速刪除具有某些單元格值的行,請按照以下步驟操作:
1。 按 Alt + F11 同時打開鑰匙 Microsoft Visual Basic for applications 窗口,
2。 點擊 Insert > Module,然後將以下代碼輸入到模塊中:
VBA:根據單元格值刪除整個行
Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
If rng.Value = DeleteStr Then
If DeleteRng Is Nothing Then
Set DeleteRng = rng
Else
Set DeleteRng = Application.Union(DeleteRng, rng)
Set DeleteRng = DeleteRng.EntireRow
End If
End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
Set DeleteRng = xWSh.Range(xArr(xF))
DeleteRng.Delete
Next
End Sub
3。 然後點擊 Run 按鈕運行代碼。
4。 在彈出的對話框中,請選擇要根據特定值刪除行的範圍,然後點擊 OK 按鈕。
5。 在另一個對話框中,請輸入您要刪除的行所基於的特定值,然後單擊 OK 按鈕。 看截圖:
然後您將看到已經基於指定的值刪除了整個行。
使用Kutools for Excel刪除基於一個或兩個單元格值的行
如果你已經安裝 Kutools for Excel,其 Select Specific Cells 功能可以幫助您快速刪除具有特定值的行。 請執行以下操作:
Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!
1。 選擇要根據特定值刪除行的範圍,然後單擊 Kutools > Select > Select Specific Cells。 看截圖:
2。 在打開的“選擇指定的單元格”對話框中,請檢查 Entire row 選項,選擇 Contains Specific type 下拉列表,在右框中輸入指定的值,然後單擊 Ok 按鈕(請參見上面的屏幕截圖)。
應用此功能後,將彈出一個對話框,顯示根據指定條件找到了多少個單元格。 請點擊 OK 按鈕將其關閉。
3。 現在,選擇具有特定值的整個行。 請右鍵點擊選中的行,然後點擊 Delete 從右鍵單擊菜單中。 請參見下面的屏幕截圖:
備註:這 Select Specific Cells 功能支持刪除一個或兩個特定值的行。 要基於兩個指定值刪除行,請在 Specific type “選擇特定單元格”對話框的“部分”部分,如以下屏幕截圖所示:
Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!
使用Kutools for Excel刪除基於多個單元格值的行
在某些情況下,您可能需要從Excel中的另一列/列表中刪除基於多個單元格值的行。 在這裡我將介紹 Kutools for Excel's Select Same & Different Cells 輕鬆解決問題的功能。
Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!
1。 點擊 Kutools > Select > Select Same & Different Cells 打開“選擇相同和不同的單元格”對話框。
2。 在開幕 Select Same & Different Cells 對話框,請執行以下操作(請參見屏幕截圖):
(1)在 Find values in 框,請選擇您將在其中找到某些值的列;
(2)在 According to 框,請選擇具有多個值的列/列表,您將基於這些列/列表刪除行;
(3)在 Based on 部分,請檢查 Each row 選項;
(4)在 Find 部分,請檢查 Same Values 選項;
(5)檢查 Select entire rows 打開對話框底部的選項。
備註:如果兩個指定的列包含相同的標題,請檢查 My data has headers 選項。
3。 點擊 Ok 按鈕以應用此實用程序。 然後出現一個對話框,顯示已選擇多少行。 只需點擊 OK 按鈕將其關閉。
然後,已選擇所有包含指定列表中的值的行。
4。 點擊 Home > Delete > Delete Sheet Rows 刪除所有選定的行。
演示:根據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%,每天為您減少數百次鼠標點擊!






















