本文介紹了在Excel中根據(jù)單元格值刪除行的多種方法。您將在本文中找到熱鍵和Excel VBA代碼。您可以自動刪除行，或者結(jié)合有用的快捷鍵使用標準的查找選項。

Excel是存儲經(jīng)常變化的數(shù)據(jù)的理想工具。然而，在某些更改后更新表格可能需要大量時間。任務可以像在Excel中刪除所有空行一樣簡單。或者，您可能需要查找并刪除重復的數(shù)據(jù)。我們確信的一點是，無論細節(jié)是增加還是減少，您總是在尋找最佳解決方案，以幫助您節(jié)省當前工作的時間。

例如，您有一個市場，不同的供應商在其中銷售他們的產(chǎn)品。由于某些原因，其中一個供應商關閉了他們的業(yè)務，現(xiàn)在您需要刪除所有包含該供應商名稱的行，即使它們位于不同的列中。

在本文中，您將找到根據(jù)特定文本或值刪除行的Excel VBA代碼和快捷鍵。您將看到如何輕松查找并選擇必要的信息，然后再刪除。如果您的任務不是刪除而是添加行，您可以在《在Excel中最快插入多行的方法》中找到如何操作。

在表格中刪除行的最快Excel快捷鍵 -------------------------------------------------------

如果您想根據(jù)單元格值使用最快的方法刪除多行，您需要首先正確選擇這些行。

要選擇行，您可以高亮顯示相鄰的包含所需值的單元格，然后按Shift + Space，或者在按住Ctrl鍵的同時選擇所需的非相鄰單元格。

您還可以使用行號按鈕選擇整行。您會在最后一個按鈕旁邊看到高亮行數(shù)。

選擇必要的行后，您可以使用Excel的“刪除行”快捷鍵快速刪除它們。下面您將找到如何刪除選定的行，無論您有一個標準數(shù)據(jù)表，還是表格右側(cè)有數(shù)據(jù)的表。

從整個表格中刪除行

如果您有一個沒有右側(cè)附加信息的簡單Excel列表，您可以使用刪除行快捷鍵在2個簡單步驟中刪除行：

1. 選擇您要刪除的行。
2. 按Ctrl + -（主鍵盤上的減號）熱鍵。

您會看到未使用的行立即消失。

提示。您可以僅高亮顯示包含您要刪除的值的范圍。然后使用快捷鍵Ctrl + -（主鍵盤上的減號）來獲取標準的Excel刪除對話框，允許您選擇整行單選按鈕，或您可能需要的任何其他刪除選項。

如果表格右側(cè)有數(shù)據(jù)，則刪除行

Ctrl + -（主鍵盤上的減號）Excel快捷鍵是刪除行的最快方法。然而，如果您的主要表格右側(cè)有任何數(shù)據(jù)，如下面的屏幕截圖所示，它可能會刪除行并帶走您需要保留的細節(jié)。

如果是這種情況，您需要首先將數(shù)據(jù)格式化為Excel表格。

1. 按Ctrl + T，或者轉(zhuǎn)到開始選項卡 -> 格式化為表格并選擇最適合您的樣式。

   格式化為表格按鈕" title="轉(zhuǎn)到開始選項卡 -> 格式化為表格按鈕" width="451" height="186"> 您將看到創(chuàng)建表格對話框，您可以使用它來高亮顯示必要的范圍。

   

2. 現(xiàn)在您的列表已格式化，選擇表格內(nèi)包含您要刪除的值或行的范圍。

   注意。請確保您不使用行按鈕來選擇整行。

3. 按Ctrl + -（主鍵盤上的減號）來刪除表格中的不需要的數(shù)據(jù)。右側(cè)的附加信息將保持不變。

希望您發(fā)現(xiàn)這個“刪除行”快捷鍵有幫助。繼續(xù)閱讀以找到用于刪除行的Excel VBA代碼，并了解如何根據(jù)特定單元格文本消除數(shù)據(jù)。

在單列中刪除包含特定文本的行

如果您要刪除的行的項目只出現(xiàn)在一列中，以下步驟將指導您如何刪除包含此類值的行。

1. 首先，您需要對表格應用篩選。要做到這一點，請導航到Excel的數(shù)據(jù)選項卡并點擊篩選圖標。
2. 根據(jù)需要的文本篩選包含刪除值的列。點擊包含所需項目的列旁邊的箭頭圖標。然后取消選中全選選項，并選中正確值旁邊的復選框。如果列表很長，只需在搜索字段中輸入必要的文本。然后點擊確定確認。
3. 選擇您要刪除的行中的篩選單元格。不需要選擇整行。
4. 右鍵點擊高亮顯示的范圍，并從菜單列表中選擇刪除行選項。

最后，再次點擊篩選圖標清除它，您會看到包含這些值的行從您的表格中消失了。

如何根據(jù)單元格顏色在Excel中刪除行

篩選選項允許根據(jù)單元格的顏色對數(shù)據(jù)進行排序。您可以使用它刪除所有包含特定背景顏色的行。

1. 對表格應用篩選。轉(zhuǎn)到Excel的數(shù)據(jù)選項卡并點擊篩選圖標。
2. 點擊所需列名旁邊的箭頭，進入按顏色篩選并選擇正確的單元格顏色。點擊確定，您會看到所有高亮單元格顯示在頂部。
3. 選擇篩選出的有顏色的單元格，右鍵點擊它們并從菜單中選擇刪除行選項。

就是這樣！包含相同顏色單元格的行立即被刪除。

在不同列中刪除包含特定文本的行

如果您要刪除的值分散在不同列中，排序可能會使任務復雜化。下面您將找到一個有用的技巧，根據(jù)包含特定值或文本的單元格刪除行。從我下面的表格中，我想刪除所有包含一月的行，它出現(xiàn)在2列中。

1. 首先通過使用查找和替換對話框搜索并選擇包含所需值的單元格。點擊Ctrl + F運行它。提示。您可以在開始選項卡 -> 查找和選擇中找到相同的對話框，然后從下拉列表中選擇查找選項。

   

   查找和選擇并選擇查找選項" title="轉(zhuǎn)到開始選項卡 -> 查找和選擇并選擇查找選項" width="319" height="173">

2. 在查找內(nèi)容字段中輸入所需值，并選擇任何必要的附加選項。然后按查找全部查看結(jié)果。

3. 結(jié)果將出現(xiàn)在查找和替換窗口中。

   在窗口中按住Ctrl鍵選擇找到的值。您會在表格中自動高亮顯示找到的值。

   

4. 現(xiàn)在導航到開始選項卡 -> 刪除 -> 刪除工作表行。

   刪除 -> 刪除工作表行" title="導航到開始選項卡 -> 刪除 -> 刪除工作表行" width="324" height="179"> 提示。您可以通過按Ctrl + - (主板上的減號)并選擇單選按鈕整行來刪除包含選定值的行。

瞧！不需要的行被刪除了。

Excel VBA宏刪除行或刪除每隔一行的方法

如果您總是尋找自動化這個或那個Excel例程的解決方案，請使用下面的宏來簡化您的刪除行任務。在這部分中，您將找到2個VBA宏，它們將幫助您刪除包含選定單元格的行或根據(jù)您的設置刪除Excel中的每隔一行。

宏RemoveRowsWithSelectedCells將刪除所有包含至少一個高亮單元格的行。

宏RemoveEveryOtherRow顧名思義，將幫助您根據(jù)您的設置刪除每隔一行/第三行等。它將從當前鼠標光標位置開始刪除行，直到表格結(jié)束。

如果您不知道如何插入宏，請隨時查看《如何在Excel中插入和運行VBA代碼》。

Sub RemoveRowsWithSelectedCells() Dim rngCurCell, rng2Delete As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each rngCurCell In Selection If Not rng2Delete Is Nothing Then Set rng2Delete = Application.Union(rng2Delete, _ ActiveSheet.Cells(rngCurCell.Row, 1)) Else Set rng2Delete = rngCurCell End If Next rngCurCell If Not rng2Delete Is Nothing Then rng2Delete.EntireRow.Delete End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub RemoveEveryOtherRow() Dim rowNo, rowStart, rowFinish, rowStep As Long Dim rng2Delete As Range rowStep = 2 rowStart = Application.Selection.Cells(1, 1).Row rowFinish = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For rowNo = rowStart To rowFinish Step rowStep If Not rng2Delete Is Nothing Then Set rng2Delete = Application.Union(rng2Delete, _ ActiveSheet.Cells(rowNo, 1)) Else Set rng2Delete = ActiveSheet.Cells(rowNo, 1) End If Next If Not rng2Delete Is Nothing Then rng2Delete.EntireRow.Delete ' 隱藏每隔一行 'rng2Delete.EntireRow.Hidden = True End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub 提示。如果您的任務是用不同顏色為每隔一行/第三行等上色，您將在《在Excel中交替行顏色和列著色（帶狀行和列）》中找到步驟。

在本文中，我描述了如何在Excel中刪除行。現(xiàn)在您有幾個有用的VBA宏來刪除選定的行，您知道如何刪除每隔一行以及如何使用查找和替換來幫助您搜索并選擇所有包含相同值的行，然后消除它們。希望上面的建議能簡化您在Excel中的工作，讓您有更多空閑時間享受這最后的夏日。祝您快樂，并在Excel中卓越！

? ??? ?? ?? ?? VBA ???? ???? Excel?? ?? ???? ??? ?? ?????. ??? ??? PHP ??? ????? ?? ?? ??? ?????!