如何在 Excel 中筛选后自动编号或重新编号?

ms excelmicrosoft technologiescomputers更新于 2024/10/6 9:16:17

您可能已经注意到，当我们使用表格中的筛选器获取项目列表时，如果它们包含任何序列号，它们将不会调整，但我们可以使用 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