京寵展信息指南
878
2025-03-31
如何在Excel中根據單元格值刪除行？
如何在Excel中根據單元格值刪除行？
要基于Excel中的單元格值快速刪除或刪除多行，您可能需要先選擇包含特定單元格值的整行，然后再刪除它們。 似乎沒有一種快速的方法來刪除基于單元格值的行，而是使用VBA代碼。 這里有一些快速技巧可以幫助您。
使用查找和替換功能基于一個單元格值刪除行 使用VBA代碼根據一個單元格值刪除行 根據一個或兩個單元格值刪除行 根據多個單元格值刪除行 使用查找和替換功能根據單元格值刪除行在Excel中，您可以應用功能強大的“查找和替換”功能輕松地基于某個單元格值刪除行。 請執行以下操作：
1。 選擇要根據某些單元格值刪除行的范圍，然后按并打開“查找和替換”對話框 Ctrl + F 鍵同時。
2。 在“查找和替換”對話框中，請輸入特定的單元格值（在本例中，我們輸入 e） 進入 Find what 框，然后單擊 Find All 按鈕。 請參閱下面的第一個屏幕截圖：
3。 在“查找和替換”對話框的底部選擇所有搜索結果，然后關閉此對話框。 （備注：您可以選擇搜索結果之一，然后 Ctrl + A
鍵以選擇所有找到的結果。 請參閱上面的第二個屏幕截圖。）
然后您可以看到所有包含特定值的單元格都被選中。4。 繼續右鍵單擊所選單元格，然后選擇 Delete 從右鍵單擊菜單中。 然后檢查 Entire row 在彈出的刪除對話框中選擇選項，然后單擊 OK 按鈕。 現在，您將看到所有包含特定值的單元格都被刪除了。 查看以下屏幕截圖：
然后已經基于該特定值刪除了整行。
使用以下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
Copy
3。 然后點擊 Run 按鈕運行代碼。
4。 在彈出的對話框中，請選擇要根據特定值刪除行的范圍，然后點擊 OK
按鈕。
5。 在另一個對話框中，請輸入您要刪除的行所基于的特定值，然后單擊 OK
按鈕。 看截圖：
然后您將看到已經基于指定的值刪除了整個行。
如果你已經安裝 Kutools for Excel，它的 Select Specific Cells 功能可以幫助您快速刪除具有特定值的行。 請執行以下操作：
Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天，無需信用卡！ 立即行動吧!
1。 選擇要根據特定值刪除行的范圍，然后單擊 Kutools > Select > Select Specific Cells
。 看截圖：
2。 在打開的“選擇指定的單元格”對話框中，請檢查 Entire row 選項，選擇 Contains 止 Specific type 下拉列表，在右框中輸入指定的值，然后單擊 Ok
按鈕（請參見上面的屏幕截圖）。
應用此功能后，將彈出一個對話框，顯示根據指定條件找到了多少個單元格。 請點擊 OK按鈕關閉它。
3。 現在，選擇具有特定值的整個行。 請右鍵點擊選中的行，然后點擊 Delete
從右鍵單擊菜單中。 參見下面的截圖：
備注： 這個 Select Specific Cells 功能支持刪除一個或兩個特定值的行。 要基于兩個指定值刪除行，請在 Specific type“選擇特定單元格”對話框的“部分”部分，如以下屏幕截圖所示：
Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天，無需信用卡！ 立即行動吧!
在某些情況下，您可能需要從Excel中的另一列/列表中刪除基于多個單元格值的行。 在這里我將介紹 Kutools for Excels Select Same & Different Cells 輕松快速解決問題的功能。
Kutools for Excel - 包括 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
刪除所有選定的行。
Kutools for Excel 包括適用于Excel的300多種便捷工具，可以在30天之內免費試用。 立即下載并免費試用!
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
