在日常使用Excel处理数据时，我们常常需要对表格中的信息进行筛选操作。然而，在完成筛选后，你会发现原本连续的行号被打乱了，而手动调整序号又显得十分繁琐。那么，有没有一种方法可以让Excel在筛选后自动为可见行重新生成连续的序号呢？
方法一：利用辅助列实现自动排序
1. 插入辅助列
在表格的第一列（例如A列）之前插入一个新的辅助列（如B列）。这个辅助列将用于存储重新排序后的序号。
2. 输入公式
在B2单元格中输入以下公式：
```
=SUBTOTAL(3,$A$2:A2)
```
这里的`3`表示使用计数函数COUNTA，`$A$2:A2`表示从表头到当前行的所有非空单元格范围。拖动填充柄向下填充该公式至所有数据行。
3. 查看效果
当你执行筛选操作时，B列会根据筛选结果动态更新，仅显示筛选后的可见行，并为其分配连续的序号。
方法二：利用VBA宏简化操作
如果你对VBA编程有一定了解，可以编写一个简单的宏来实现这一功能：
1. 按下 `Alt + F11` 打开VBA编辑器。
2. 点击菜单栏的 `插入 > 模块`，然后粘贴以下代码：
```vba
Sub AutoSortAfterFilter()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Set ws = ActiveSheet
On Error Resume Next
Set rng = ws.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then
i = 1
For Each cell In rng
If cell.Row <> ws.AutoFilter.Range.Cells(1, 1).Row Then
cell.Offset(0, -1).Value = i
i = i + 1
End If
Next cell
End If
End Sub
```
3. 关闭VBA编辑器，返回Excel界面。
4. 按下 `Alt + F8` 调出宏对话框，选择刚才创建的宏并运行即可。
通过以上两种方式，你可以轻松地解决Excel筛选后序号不连续的问题。无论是使用公式还是借助VBA，都可以显著提高工作效率，避免手动调整带来的麻烦。希望这些技巧能帮助你在数据分析过程中更加得心应手！
