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

您可能已經注意到，當我們在表格中使用篩選器獲取專案列表時，如果它們包含任何序號，這些序號不會自動調整。但是，我們可以使用 VBA 程式碼將它們排序；這無法透過 Excel 提供的預設操作完成。閱讀本教程，瞭解如何在 Excel 中過濾後自動編號或重新編號。

過濾後自動編號或重新編號

在這裡，我們將插入一個 VBA 模組，然後執行它來完成我們的任務。讓我們來看一個簡單的過程，瞭解如何在 Excel 中藉助 VBScript 應用程式在過濾後自動編號或重新編號。

步驟 1

假設我們有一個 Excel 表格，其中包含應用篩選器後的表格，類似於下圖所示的表格。

現在，要解決這個問題，右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟 VBA 應用程式，然後單擊“插入”並選擇“模組”，然後將程式鍵入文字框中，如下圖所示。

示例

Sub Renumber()
   'Update by Nirmal
   Dim Rng As Range
   Dim WorkRng As Range
   On Error Resume Next
   xTitleId = "Select the range"
   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