如何過濾列表並刪除Excel中其餘的隱藏行或可見行？

對於過濾列表，您可能需要刪除隱藏或可見行，以便僅保留有用數據。 在本文中，我們將向您展示刪除Excel中已過濾列表的其餘隱藏或可見行的方法。

使用VBA代碼刪除活動工作表中的隱藏行
通過選擇所有可見單元格刪除過濾列表的可見行
使用Kutools for Excel輕鬆刪除過濾列表的隱藏或可見行

使用VBA代碼刪除活動工作表中的隱藏行

本節將向您展示VBA代碼，以刪除活動工作表中的隱藏行。 請執行以下操作。

1.激活需要刪除隱藏行的工作表，然後按 其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

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

VBA代碼：刪除隱藏的行

Sub RemoveHiddenRows()
	Dim xRow As Range
	Dim xRg As Range
	Dim xRows As Range
	On Error Resume Next
	Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
	If xRows Is Nothing Then Exit Sub
		For Each xRow In xRows.Columns(1).Cells
			If xRow.EntireRow.Hidden Then
				If xRg Is Nothing Then
					Set xRg = xRow
				Else
					Set xRg = Union(xRg, xRow)
				End If
			End If
		Next
		If Not xRg Is Nothing Then
			MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
			xRg.EntireRow.Delete
		Else
			MsgBox "No hidden rows found", , "Kutools for Excel"
		End If
	End Sub

3。 按 F5 鍵來運行代碼。 如果活動工作表中有隱藏行，則運行代碼後，將彈出一個對話框，告訴您已刪除了多少個隱藏行。 點擊 OK 按鈕刪除隱藏的行。 看截圖：

否則，運行代碼後，您將獲得以下對話框。

備註：上面的VBA代碼不僅可以刪除過濾列表的隱藏行，還可以刪除您之前手動隱藏的隱藏行。

使用 Kutools AI 解鎖 Excel 魔法

• 智慧執行：執行單元格操作、分析資料並建立圖表 - 所有這些都由簡單的命令驅動。
• 自定義公式：產生客製化公式以簡化您的工作流程。
• VBA編碼：輕鬆編寫和實作 VBA 程式碼。
• 公式解讀：輕鬆理解複雜的公式。
• 文字翻譯：打破電子表格中的語言障礙。

使用 AI 支援的工具增強您的 Excel 功能。 立即下載 並體驗前所未有的效率！

通過選擇所有可見單元格功能刪除過濾列表的可見行

要刪除過濾列表的可見行，請執行以下操作。

1.選擇所有過濾出的行，然後按 F5 鍵打開 轉到 對話框，然後單擊 特別 按鈕。 看截圖：

2。 在裡面 去特別 對話框，檢查 僅可見細胞 選項，然後單擊 OK 按鈕。

3.現在，所有可見行均被選中，右鍵單擊所選內容，然後單擊“確定”。 刪除行.

到目前為止，所有可見行均已從過濾列表中刪除。

使用Kutools for Excel輕鬆刪除過濾列表的隱藏或可見行

對於許多Excel用戶來說，以上兩種方法可能不是理想的解決方案，在這裡我們為您介紹一個方便的工具。 隨著 刪除隱藏（可見）行和列 的效用 Excel的Kutools，您可以輕鬆刪除Excel中所選範圍/工作表，活動工作表或所有工作表中的隱藏行。

1.如果您只想刪除過濾列表的隱藏或可見行，請手動選擇過濾範圍，然後單擊 庫工具 > 刪除 > 刪除隱藏（可見）行和列。 看截圖：

2。 在裡面 刪除隱藏（可見）行和列 對話框中，保留 在選定範圍內 選中 在看 下拉列表（您可以根據需要選擇其他選項），然後選中 行 在選項 刪除類型 部分，並在 詳細類型 部分，檢查 可見行 or 隱藏的行 您需要的選項。 最後點擊 OK 按鈕。

3.然後會彈出一個對話框，告訴您已刪除了多少行，請單擊 OK 按鈕。

使用Kutools for Excel刪除過濾列表的隱藏或可見行