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

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

注意事項與提示:此程式碼將覆寫您所選區域中的原始編號序列。日後若移除篩選器,原始(篩選前)的順序將無法還原,僅保留篩選後的連續數字。為避免資料遺失,建議執行此巨集前,先備份工作表或相關欄位。此外,請確認您的 Excel 工作表已啟用巨集,並留意巨集操作通常無法透過 Ctrl + Z 撤銷,務必謹慎執行!
使用 Excel 公式(SUBTOTAL 與 ROW)在篩選後自動編號或重新編號
對許多使用者來說,以公式為基礎的解決方案更受青睞,因其具備動態特性——每當您變更篩選條件時,設定的行數便會自動更新。只要結合 Excel 的 SUBTOTAL 與 ROW 函數,就能輕鬆產生僅針對可見列的連續編號,確保篩選後顯示的資料列依序編號、絕不中斷。當您需要反覆套用篩選器,或預期資料會隨時間變動時,此方法尤其實用——無需重新執行 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 後,請依照以下實用步驟操作:
1. 選取您要在篩選資料檢視中重新編號的儲存格,建議僅選取可見列,避免混淆。
2. 前往 Kutools > 插入 > 插入序列號,如下圖所示:

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

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

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

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

注意:Kutools for Excel 的插入序列號功能不僅能為大型資料集節省時間,更能透過僅對篩選後的列套用編號來減少錯誤。您可隨時重複或更新編號——特別適用於篩選條件頻繁變動的情況。若需在合併儲存格或不規則範圍中進行編號,請於對話方塊中檢視預覽,確認最終效果。
示範:使用 Kutools for Excel 在篩選後自動編號或重新編號
相關文章:
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 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 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用


