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

众所周知，在对包含序列号列表的数据进行筛选后，工作表上的行号会显示为与原始编号相同，并不会自动重新编号。但是，有时您希望在筛选后的工作表中按顺序重新编号，如下方截图所示。本文将介绍如何在Excel中筛选后自动编号或重新编号。

使用VBA代码在筛选后自动编号或重新编号

使用Kutools for Excel在筛选后自动编号或重新编号

使用VBA代码在筛选后自动编号或重新编号

在筛选状态下，您无法使用自动填充柄来填充数字序列，只能通过逐个输入数字来完成。但如果需要重新编号的单元格很多，这将非常繁琐且耗时。在这里，我将介绍一个VBA代码来解决此问题。

1. 按住ALT + F11键，打开Microsoft Visual Basic for Applications窗口。

2. 点击 插入 > 模块，并将以下宏粘贴到模块窗口中。

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. 然后点击 确定，您所选范围的单元格已按顺序重新编号，如下方截图所示：

注意：当您取消筛选功能时，此代码将破坏原始的系列行号。因此，您需要先备份数据。

使用Kutools for Excel在筛选后自动编号或重新编号

如果您已经安装了 Kutools for Excel，利用其强大的插入序列号功能，您可以快速轻松地将序列号插入到筛选后的数据中。

安装Kutools for Excel后，请按照以下步骤操作：

1. 选择您要为筛选后的数据重新编号的单元格。

2. 然后点击Kutools > 插入 > 插入序列号，请参见截图：

3. 在弹出的“插入序列号”对话框中，点击 新建按钮，请参见截图：

4. 然后根据需要在左下角部分创建序列列表编号，请参见截图：

5. 设置完序列后，点击添加按钮，序列项已被添加到对话框中，请参见截图：

6. 然后点击填充范围，筛选后的数据立即被重新编号。请参见截图：

立即下载并免费试用Kutools for Excel！

演示：使用Kutools for Excel在筛选后自动编号或重新编号

相关文章：

如何在Excel中自动编号合并单元格？