今日知识分享excel筛选下写序号（excel筛选以后序号怎么自动生成）

Excel筛选功能可以帮助我们在海量数据中快速找出符合条件的数据，提高工作效率。而如何在筛选结果中给筛选到的数据加上序号呢？本文将为大家详细介绍如何在Excel中实现筛选下写序号的方法。

一、利用公式实现在筛选结果中写序号

1.在数据表格中新增一列，命名为“序号”，将第一行单元格输入“1”。

2.在该单元格中鼠标双击，将单元格下拉至末尾，即可自动生成序号。

3.在筛选结果中，直接复制该列数据即可。

二、利用VBA实现在筛选结果中写序号

1.打开VBA编辑器，在模块里输入下列代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rng As Range

Set Rng = Intersect(ActiveCell, ActiveSheet.ListObjects("Table1").ListColumns(1).DataBodyRange)

If Not Rng Is Nothing Then

Rng.Offset(0, 1).Value = Evaluate("=COUNTIF(Table1[Column1],""" & Rng.Value & """)")

End If

End Sub

注：这段代码是在指定数据表格（Table1）的第一列（Column1）中寻找与选定单元格内容相同的数据，并在该数据行的相邻一列填写该组数据在数据表格中的序号。

2.关闭VBA编辑器，回到Excel工作表，在任意单元格中点击右键，选择“查找”，在查找栏输入要筛选的内容，点击“查找全部”。

3.此时会显示出所有符合条件的数据，而该数据行的相邻一列已经写上了序号。

本文为大家介绍了两种在Excel中实现筛选下写序号的方法，第一种方法通过公式实现，简单易用，适用于数据量较小的场景；第二种方法则是通过VBA实现，扩展性强，适用于数据量较大的场景。无论您选择哪种方法，都可以在海量的数据中快速找出符合条件的结果，并带上序号，提高工作效率。