如何在Excel中過濾后自動編號或重新編號？

眾所周知，過濾具有序列號列表的數據后，工作表上的行號將顯示為與原始編號相同，不會自動重新編號。 但是，有時，您希望按照篩選后的工作表中的順序對行進行重新編號，如下圖所示。 在本文中，我將討論如何在Excel中過濾后自動編號或重新編號。

使用VBA代碼過濾后自動編號或重新編號

過濾后自動編號或重新編號 Kutools for Excel

使用VBA代碼過濾后自動編號或重新編號

在過濾狀態下，您無法應用自動填充手柄來填充數字序列，而只能通過一一鍵入數字來填充它們。 但是，如果有很多小區需要重新編號，這將是乏味且耗時的。 在這里，我將介紹一個VBA代碼來解決此任務。

1。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic for Applications窗口.

2。 點擊 插頁 > 模塊，然后將以下宏粘貼到 模塊窗口.

VBA代碼：自動編號或過濾后重新編號

Sub Renumbering()Updateby ExtendofficeDim Rng As RangeDim WorkRng As RangeOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)xIndex = 1For Each Rng In WorkRngRng.Value = xIndexxIndex = xIndex + 1NextEnd SubCopy

3。 粘貼代碼后，請按 F5 鍵以運行此代碼，然后會彈出提示框，提醒您選擇要自動編號或對行重新編號的范圍單元格，請參見屏幕截圖：

4。 然后點擊 OK，并且您選擇的范圍單元已按順序重新編號，如下圖所示：

備注：取消過濾功能時，此代碼將破壞原始系列的行號。 因此，您需要首先備份數據。

過濾后自動編號或重新編號 Kutools for Excel

如果你已經安裝 Kutools for Excel，其功能強大 插入序列號 功能，您只能快速，輕松地將序列號插入過濾后的數據中。

Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內.前往下載購買貝寶/ MyCommerce

安裝后 Kutools for Excel，請執行以下操作：

1。 選擇要重新編號的單元格，篩選出的數據。

2。 然后點擊 Kutools > 插頁 > 插入序列號，請參見屏幕截圖：

3. 然后在彈出 插入序列號 對話框，單擊 全新 按鈕，請參見屏幕截圖：

4。 然后在左下方創建所需的序列表編號，請參見屏幕截圖：

5。 設置順序后，單擊 地址 按鈕，并且序列項已添加到對話框中，請參見屏幕截圖：

6。 然后點擊 填充范圍 并且已過濾的數據已立即重新編號。 看截圖：

下載并 Kutools for Excel 現在 ！

演示：過濾后自動編號或重新編號 Kutools for ExcelKutools for Excel：具有300多個方便的Excel加載項，可以在內，沒有任何限制。 立即下載并！

相關文章：

如何在Excel中自動為合并的單元格編號？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel