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

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

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

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

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

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

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

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

從整個(gè)表格中刪除行

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

1. 選擇您要?jiǎng)h除的行。
2. 按Ctrl -（主鍵盤上的減號(hào)）熱鍵。

您會(huì)看到未使用的行立即消失。

提示。您可以僅高亮顯示包含您要?jiǎng)h除的值的范圍。然后使用快捷鍵Ctrl -（主鍵盤上的減號(hào)）來獲取標(biāo)準(zhǔn)的Excel刪除對(duì)話框，允許您選擇整行單選按鈕，或您可能需要的任何其他刪除選項(xiàng)。

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

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

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

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

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

   

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

   注意。請(qǐng)確保您不使用行按鈕來選擇整行。

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

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

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

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

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

最后，再次點(diǎn)擊篩選圖標(biāo)清除它，您會(huì)看到包含這些值的行從您的表格中消失了。

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

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

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

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

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

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

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

   

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

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

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

   在窗口中按住Ctrl鍵選擇找到的值。您會(huì)在表格中自動(dòng)高亮顯示找到的值。

   

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

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

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

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

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

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

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

如果您不知道如何插入宏，請(qǐng)隨時(shí)查看《如何在Excel中插入和運(yùn)行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 提示。如果您的任務(wù)是用不同顏色為每隔一行/第三行等上色，您將在《在Excel中交替行顏色和列著色（帶狀行和列）》中找到步驟。

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

以上是如何使用快捷方式或VBA宏刪除Excel中的行的詳細(xì)內(nèi)容。更多信息請(qǐng)關(guān)注PHP中文網(wǎng)其他相關(guān)文章！