如何在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