KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何在 Excel 中篩選後自動編號或重新編號?

作者Xiaoyang修改日期

當您在 Excel 中處理大型資料集時,通常會為列指派一組連續數字作為識別碼,以便更有效地組織或追蹤資料項目。然而,一旦套用篩選器僅顯示特定列,可見的數字序列或行號仍維持原始資料集的順序,並未根據篩選後實際可見的列自動更新。這種情況容易造成混淆,也難以產出清晰、連續編號的清單,不利於報告或簡報使用。您可能希望該編號能動態調整,讓篩選後僅顯示的列自動呈現連續編號(如下方截圖所示)。本文將介紹如何在 Excel 中實現篩選後自動編號或重新編號,協助您提升資料檢視的清晰度與管理效率。

使用 VBA 程式碼在篩選後自動編號或重新編號

使用 Excel 公式(SUBTOTAL 與 ROW)在篩選後自動編號或重新編號

使用 Kutools for Excel 在篩選後自動編號或重新編號

原始數字向右箭頭篩選後重新編號

使用 VBA 程式碼在篩選後自動編號或重新編號

在 Excel 中,當資料經過篩選後,標準的自動填滿功能並不會僅針對可見列依序填入數字,而是沿用包含隱藏列在內的原始序列,導致編號仍對應原始列位置,而非篩選後的可見資料。若手動為每個可見列逐一輸入編號,不僅耗時費力,更難以應付大型清單。此時,只需一段簡單的 VBA 程式碼,即可快速為篩選後的資料區域重新編號,大幅節省手動操作時間並有效降低錯誤率。

1. 按住 ALT + F11 鍵,即可開啟 Microsoft Visual Basic for Applications 視窗——這是 Excel 中撰寫與執行 VBA 程式碼的主要介面。

2. 在 VBA 視窗中,點擊插入 > 模組,即可新增一個模組。請將下列巨集貼到模組視窗中。

VBA 程式碼:篩選後自動編號或重新編號

Sub Renumbering()
	'Updateby Extendoffice
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
	xIndex = 1
	For Each Rng In WorkRng
		Rng.Value = xIndex
		xIndex = xIndex + 1
	Next
End Sub

3. 貼上程式碼後,按下 F5 鍵執行,系統將彈出提示框,請選擇您要為可見篩選列自動編號或重新編號的儲存格範圍。請參見截圖:

用於選取儲存格的 VBA 程式碼

4. 選擇目標範圍後,點擊確定,您所選區域中可見(已篩選)的儲存格將依序重新編號,如下圖所示:

所選儲存格已按順序重新編號

注意事項與提示:此程式碼將覆寫您所選區域中的原始編號序列。日後若移除篩選器,原始(篩選前)的順序將無法還原,僅保留篩選後的連續數字。為避免資料遺失,建議執行此巨集前,先備份工作表或相關欄位。此外,請確認您的 Excel 工作表已啟用巨集,並留意巨集操作通常無法透過 Ctrl + Z 撤銷,務必謹慎執行!


使用 Excel 公式(SUBTOTAL 與 ROW)在篩選後自動編號或重新編號

對許多使用者來說,以公式為基礎的解決方案更受青睞,因其具備動態特性——每當您變更篩選條件時,設定的行數便會自動更新。只要結合 Excel 的 SUBTOTALROW 函數,就能輕鬆產生僅針對可見列的連續編號,確保篩選後顯示的資料列依序編號、絕不中斷。當您需要反覆套用篩選器,或預期資料會隨時間變動時,此方法尤其實用——無需重新執行 VBA 或手動輸入數字,所有內容皆即時自動更新,省時又精準!

適用情境:若您希望每次套用或調整篩選器時,編號都能自動更新,無需手動重新套用或使用 VBA 指令稿,此方法將是您的理想選擇!特別適合用於呈現動態報表或共用試算表,讓資料整理更聰明、更高效。

1. 在您指定編號欄位的第一個儲存格(例如數據區域從第 2 列開始、標題位於第 1 列時的 A2 儲存格)中輸入下列公式:

=SUBTOTAL(3, $B$2:B2)

此處,$B$2:B2 指的是您資料中始終包含內容的欄位(例如姓名或 ID 欄)。您可能需要調整欄位參照,使其對應至表格中的正確欄位。請將第一部分設為絕對參照($B$2),並讓第二部分的列號自動遞增(例如 B2、B3……)以確保公式正確運作!

2. 按下 Enter 確認。若要將編號套用至整個清單,請沿著編號欄位向下拖曳填滿控制點,涵蓋所有列。

篩選資料後,僅可見列會顯示遞增編號(1、2、3……),隱藏列則自動排除。此方法無需每次變更篩選條件後手動更新——編號序列始終與可見列數量同步。

額外提示:請確保公式中所用的參照欄位,在您要編號的資料範圍內沒有空白。若您的資料並非從第 2 列開始,請相應調整絕對參照(例如:資料從第 5 列開始,且以 C 欄作為參照,則改用)$C$5:C5)。若出現編號間隔,請檢查參照範圍內是否有隱藏列或空白儲存格。若您使用的是 Excel 表格,還可透過結構化參照進一步簡化公式(例如 =SUBTOTAL(3,OFFSET([@Column],0,0,ROW()-ROW(Table1[#Headers])))),但上述標準方法已適用於大多數情況。


使用 Kutools for Excel 在篩選後自動編號或重新編號

若您已安裝 Kutools for Excel插入序列號功能可讓您快速、輕鬆地為篩選後的資料插入序列號!有別於 Excel 預設功能無法僅針對可見列填入數字,Kutools 能自動適應您的篩選範圍,大幅加速編號流程並減少手動操作。此功能特別適用於處理複雜資料集,或需要自訂編號格式(例如指定前置字元、起始數字或遞增值)的情境,助您輕鬆掌握高效作業!

Kutools for Excel 提供超過 300 項進階功能,簡化複雜作業,提升創造力與效率。整合 AI 功能,Kutools 能精準自動化各項任務,讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊……         免費試用……

安裝 Kutools for Excel 後,請依照以下實用步驟操作:

1. 選取您要在篩選資料檢視中重新編號的儲存格,建議僅選取可見列,避免混淆。

2. 前往 Kutools > 插入 > 插入序列號,如下圖所示:

點擊 Kutools 的「插入序列編號」功能

3. 在插入序列號對話方塊中,點擊新增,即可定義您的編號樣式。

在對話框中點擊「新增」按鈕

4. 利用左下角的設定控制項,輕鬆建立您的序列清單,包括起始數字、遞增值、位數及其他所需選項!

在對話框中建立序列清單編號

5. 設定完成後,點擊新增以儲存序列樣式,該樣式將立即出現在對話方塊的序列清單中!

序列項目已新增至對話框,

6. 點擊填滿範圍,序列將立即套用至您指定的(可見)數據區域!僅篩選後可見的列會依序編號,如下圖所示:

點擊「填入範圍」以重新編號儲存格

注意:Kutools for Excel 的插入序列號功能不僅能為大型資料集節省時間,更能透過僅對篩選後的列套用編號來減少錯誤。您可隨時重複或更新編號——特別適用於篩選條件頻繁變動的情況。若需在合併儲存格或不規則範圍中進行編號,請於對話方塊中檢視預覽,確認最終效果。

立即下載並免費試用 Kutools for Excel!


示範:使用 Kutools for Excel 在篩選後自動編號或重新編號

 

相關文章:

如何在 Excel 中自動為合併儲存格編號?


最佳 Office 生產力工具

🤖KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行     產生程式碼  建立自訂公式    分析資料並產生圖表  呼叫增強函數……
熱門功能尋找、醒目提示或標記重複值     刪除空白行     合併列或儲存格而不遺失資料     不使用公式的四捨五入……
高級 LOOKUP多重條件 VLookup    多重數值 VLookup     跨多個工作表 VLookup      模糊查找……
高級下拉列表快速建立下拉式清單     相依式下拉式清單     多選下拉式清單……
欄位管理員新增指定數量的欄位移動欄位切換隱藏欄位的可見狀態比較範圍與欄位……
精選功能網格聚焦     設計視圖   增強編輯欄    工作簿與工作表管理員     資源庫(自動文字)  日期提取     合併工作表    加密/解密儲存格    依清單傳送電子郵件     超級篩選      特殊篩選(篩選粗體儲存格/斜體/刪除線……) ......
頂尖 15 工具組12 文字工具添加文本刪除特定字符,……)   50+ 圖表 類型甘特圖,……)   40+ 實用公式基於生日計算年齡,……)   19 插入工具插入二維碼從路徑插入圖片,……)   12 轉換工具金額轉大寫匯率轉換,……)   7 合併和拆分工具高級合併行分割儲存格,……)……以及更多
在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言!

運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……


Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!

  • 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
  • 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
  • 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!

所有 Kutools 增益集,一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!

ExcelWordOutlookTabsPowerPoint
  • 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
  • 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
  • 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
  • 30 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用