excel筛选之后怎么设置序号

在Excel中筛选数据后设置序号，可以通过使用辅助列、应用公式、使用VBA宏等方法来实现。其中，使用辅助列是最简便且直观的方法。下面详细描述这种方法的步骤。

一、使用辅助列设置序号

1. 创建辅助列

在筛选之前，创建一个新的辅助列，用于存放序号。将辅助列放置在数据的左侧或右侧都可以。

2. 填充序号

在辅助列的第一个单元格中输入序号1，然后在第二个单元格中输入序号2。接下来，选中这两个单元格，并通过拖动填充柄将序号填充到数据列的底部。这样每一行数据都有一个唯一的序号。

3. 应用筛选

应用Excel的筛选功能，筛选出需要的数据。这时，辅助列的序号可能会变得不连续，因为某些行的数据被隐藏了。

4. 重新设置序号

为了给筛选后的数据重新设置连续的序号，可以在辅助列旁边再插入一个新的辅助列。例如，如果原辅助列是A列，则新辅助列是B列。在新辅助列的第一个可见单元格中输入公式 =SUBTOTAL(3, $A$2:A2)，并向下填充。这个公式会根据筛选后的数据重新生成连续的序号。

5. 复制并粘贴为值

最后，将新辅助列的公式转换为值。选中新辅助列的数据，复制并选择性粘贴为值。这样筛选后的数据就有了连续的序号。

二、使用VBA宏设置序号

1. 打开VBA编辑器

按 Alt + F11 打开VBA编辑器，然后插入一个新的模块。

2. 输入VBA代码

在模块中输入以下VBA代码：

Sub SetSerialNumbers()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) ' 修改为你的数据范围
    i = 1
    For Each cell In rng.SpecialCells(xlCellTypeVisible)
        cell.Value = i
        i = i + 1
    Next cell
End Sub

3. 运行VBA代码

关闭VBA编辑器，返回Excel工作表。按 Alt + F8 打开宏对话框，选择 SetSerialNumbers 宏并运行。这样筛选后的数据就会按照可见行重新生成连续的序号。

三、使用公式设置序号

1. 添加辅助列

在筛选之前，添加一个新的辅助列用于存放序号。

2. 输入公式

在辅助列的第一个单元格中输入公式 =SUBTOTAL(3, $A$2:A2)，并向下填充。这样筛选后的数据会自动生成连续的序号。

3. 复制并粘贴为值

选中辅助列，复制并选择性粘贴为值，以固定序号。

通过以上三种方法，您可以在Excel中筛选数据后轻松设置序号。使用辅助列的方法最为直观、简单，适合大多数用户。使用VBA宏的方法则更为自动化，适合处理大量数据或需要频繁操作的场景。使用公式的方法灵活性较高，适合对数据进行复杂筛选和处理的场景。根据具体需求选择合适的方法，可以帮助您高效地完成任务。