使用subtotal函数可实现筛选后自动编号，如在a2输入=subtotal(3,$b$2:b2)并向下填充，编号将仅针对可见行连续生成，隐藏行不计入，确保结果清晰动态更新。
如果您在使用Excel进行数据筛选后，希望对筛选出的结果行进行自动编号，以便更清晰地查看当前可见行的顺序，可以采用以下几种方法实现动态编号。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11
一、使用SUBTOTAL函数编号
SUBTOTAL函数能够忽略被筛选掉的隐藏行，仅对当前可见的单元格进行计数或编号，适合用于动态编号场景。
1、在需要编号的列的第一个单元格（如A2）中输入公式：=SUBTOTAL(3,$B$2:B2)，其中3代表COUNTA功能，用于统计非空单元格数量。
2、按下回车键后，将鼠标移至该单元格右下角，出现填充柄时向下拖动，覆盖所有可能的数据行。
3、当应用筛选时，该列将仅对可见行进行连续编号，隐藏行不会被计入。
二、结合ROW与AGGREGATE函数实现编号
AGGREGATE函数是SUBTOTAL的增强版，支持更多函数类型且可忽略错误值和隐藏行，适用于复杂数据环境。
1、在编号列首行输入公式：=AGGREGATE(3,5,($B$2:B2"")/($B$2:B2""),1)，此公式通过逻辑判断生成序号。
2、调整公式逻辑为基于行号的动态计算，例如使用：=IF(B2="","",AGGREGATE(14,6,ROW($B$2:B2)*($B$2:B2""),1)-ROW($B$2)+1) 实现可见行递增编号。
3、完成输入后向下填充公式，切换筛选条件时观察编号是否自动更新为仅针对可见行。
三、利用辅助列配合COUNTIF函数编号
通过添加一个辅助列标记可见行，再使用计数函数生成连续编号，适用于需保留原始结构的情况。
1、插入一列作为辅助列，在对应行输入标识符，例如在筛选后手动或通过公式标记为"显示"。
2、在编号列使用公式：=IF(D2="显示",COUNTIF($D$2:D2,"显示"),"")，其中D列为辅助列。
3、向下填充该公式，确保每行根据辅助列状态决定是否参与编号。
四、使用VBA宏自动编号
VBA脚本可在筛选操作后自动执行，遍历可见单元格并为其分配连续编号，适合频繁操作用户。
1、按下Alt + F11打开VBA编辑器，插入新模块。
2、输入以下代码：
Sub 编号筛选结果()
Dim rng As Range
Dim cell As Range
Dim i As Integer
Set rng = Selection.SpecialCells(xlCellTypeVisible)
i = 1
For Each cell In rng
If cell.Row Selection.Row Then
Cells(cell.Row, 1) = i
i = i + 1
End If
Next cell
End Sub
3、关闭编辑器，返回Excel，选中数据区域，运行宏即可在选定列生成编号。
