excel表中筛选后序号怎么

在Excel表中筛选后序号的方法有多种，包括使用辅助列、添加序列号公式、以及使用VBA宏代码等。 这里我们将详细介绍其中的一种方法，即使用辅助列来重新生成序号。这种方法适用于大多数用户，且易于操作。

一、使用辅助列生成序号

1. 创建辅助列

首先，在表格的最后一列创建一个辅助列，用于存放重新生成的序号。假设你的数据范围是A1:D100，那么你可以在E列创建辅助列，命名为“新序号”。

2. 输入公式

在辅助列的第一个单元格（例如E2）中输入公式：

=SUBTOTAL(3, $A$2:A2)

这个公式的作用是计算从A2到当前行的所有非隐藏行的数量。公式中的SUBTOTAL函数可以忽略已筛选掉的行，从而动态更新序号。

3. 拖动填充

将辅助列第一个单元格中的公式向下拖动填充到整个辅助列，使每一行都包含对应的序号。

4. 应用筛选

现在，你可以应用筛选条件，筛选后的表格中辅助列将显示正确的序号。

二、使用公式生成动态序号

1. 使用公式

在辅助列的第一个单元格（例如E2）中输入以下公式：

=IF(SUBTOTAL(3, $A$2:A2)>0, SUBTOTAL(3, $A$2:A2), "")

这个公式不仅计算非隐藏行的数量，还在行被隐藏时返回空白。

2. 拖动填充

将公式向下拖动填充到整个辅助列，使每一行都包含动态更新的序号。

3. 应用筛选

应用筛选条件后，辅助列将显示正确的序号，并且在行被隐藏时显示为空白。

三、使用VBA宏代码生成序号

1. 打开VBA编辑器

按Alt + F11打开VBA编辑器。

2. 插入新模块

在VBA编辑器中，选择插入 > 模块，然后在新模块中输入以下代码：

Sub GenerateSerialNumbers()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim i As Long
    Set ws = ActiveSheet
    Set rng = ws.Range("A2:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row) ' Adjust the range as needed
    i = 1
    For Each cell In rng
        If cell.EntireRow.Hidden = False Then
            cell.Offset(0, 4).Value = i ' Adjust the offset as needed
            i = i + 1
        Else
            cell.Offset(0, 4).ClearContents ' Adjust the offset as needed
        End If
    Next cell
End Sub

这个宏代码将遍历指定范围内的所有单元格，并为非隐藏行生成序号。

3. 运行宏

关闭VBA编辑器，返回Excel表格。按Alt + F8打开宏对话框，选择GenerateSerialNumbers宏并运行。宏将为当前筛选条件下的所有非隐藏行生成序号。

四、总结

在Excel表中筛选后生成序号的方法有多种，最常用和易于操作的是使用辅助列和公式。使用辅助列生成序号的核心步骤包括：创建辅助列、输入公式、拖动填充、应用筛选。 这种方法简单、直观，适合大多数用户。对于高级用户，可以选择使用VBA宏代码来实现更复杂的功能。无论选择哪种方法，都可以帮助你在筛选后的Excel表格中生成正确的序号，从而更好地管理和分析数据。