excel筛选了怎么从新编号

Excel筛选后重新编号的方法有多种，可以使用公式、VBA宏、或手动操作。本文将详细介绍这些方法，并提供具体步骤和案例，以帮助读者更好地理解和应用这些技巧。

一、公式法重新编号

使用公式重新编号是一种常见且简单的方法，主要通过 Excel 内置的函数来实现。以下是具体步骤：

添加辅助列：

在数据的旁边新增一列，用于存放重新编号的结果。假设数据在 A 列，辅助列为 B 列。
输入公式：

在辅助列的第一个单元格（如 B2）输入公式 =SUBTOTAL(3, $A$2:A2)。该公式使用 SUBTOTAL 函数中的第一个参数 3 表示计数功能。
向下填充公式：

选中第一个单元格的右下角，将公式向下拖动复制到整个辅助列。
应用筛选器并检查结果：

在数据上方应用筛选器，然后选择你需要的筛选条件。此时，辅助列会自动更新编号。

详细描述：SUBTOTAL 函数是 Excel 中的一个特殊函数，它能够在应用筛选器后动态计算结果。通过使用 SUBTOTAL(3, $A$2:A2) 公式，可以根据筛选条件为每一行数据重新编号。当应用筛选器时，辅助列中的编号会自动调整，不需要手动更新。

二、VBA宏重新编号

对于需要处理大量数据或频繁进行筛选操作的用户，可以使用 VBA 宏来自动化重新编号的过程。以下是具体步骤：

打开 VBA 编辑器：

按 Alt + F11 打开 Excel 的 VBA 编辑器。
插入新模块：

在 VBA 编辑器中，选择 “插入” > “模块”，插入一个新的模块。

编写 VBA 代码：

在模块中输入以下代码：

Sub ReNumber()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    ' 清除原有编号
    ws.Columns("B").ClearContents
    ' 重新编号
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    i = 1
    For Each cell In rng
        cell.Offset(0, 1).Value = i
        i = i + 1
    Next cell
End Sub

运行宏：

关闭 VBA 编辑器，返回 Excel。按 Alt + F8 打开宏列表，选择刚才创建的宏 ReNumber，然后点击 “运行”。

详细描述：上述 VBA 代码首先清空辅助列中的原有编号，然后通过 SpecialCells 方法选择可见的单元格（即筛选后的数据），并使用循环语句为每个可见单元格重新编号。VBA 宏的优势在于可以处理大规模数据，并且只需一次设置即可重复使用。

三、手动操作重新编号

对于小规模数据或不常进行筛选操作的用户，可以选择手动操作进行重新编号。以下是具体步骤：

添加辅助列：

在数据的旁边新增一列，用于存放重新编号的结果。
输入初始编号：

在辅助列的第一个单元格（如 B2）输入初始编号 1。
使用填充柄：

选中初始编号单元格的右下角，将其向下拖动复制到需要编号的行数。确保每个单元格都连续递增。
应用筛选器：

在数据上方应用筛选器，然后选择你需要的筛选条件。此时，辅助列中的编号会根据筛选条件显示。
手动调整编号：

根据需要手动调整筛选后的编号，以确保连续性和正确性。

详细描述：手动操作虽然简单，但当数据量较大时，效率较低。建议在数据量较小时使用此方法，通过手动调整筛选后的编号，确保每行数据都有一个唯一且连续的编号。

四、公式与宏结合的方法

对于某些特殊情况，可以结合使用公式和 VBA 宏的方法，以提高灵活性和效率。以下是具体步骤：

添加辅助列：

在数据的旁边新增一列，用于存放重新编号的结果。
输入公式：

在辅助列的第一个单元格（如 B2）输入公式 =IF(SUBTOTAL(3, $A$2:A2)>0, SUBTOTAL(3, $A$2:A2), "")。
向下填充公式：

选中第一个单元格的右下角，将公式向下拖动复制到整个辅助列。

编写 VBA 代码：

按 Alt + F11 打开 VBA 编辑器，插入新模块，输入以下代码：

Sub ReNumberWithFormula()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    ' 清除原有编号
    ws.Columns("B").ClearContents
    ' 重新编号
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    i = 1
    For Each cell In rng
        cell.Offset(0, 1).FormulaR1C1 = "=IF(SUBTOTAL(3, R2C1:RC1)>0, SUBTOTAL(3, R2C1:RC1), """")"
        i = i + 1
    Next cell
End Sub

运行宏：

关闭 VBA 编辑器，返回 Excel。按 Alt + F8 打开宏列表，选择刚才创建的宏 ReNumberWithFormula，然后点击 “运行”。

详细描述：这种方法结合了公式和 VBA 宏的优势，先通过公式在辅助列中动态生成编号，再通过宏自动填充公式。此方法不仅提高了效率，还能在筛选条件变化时自动更新编号。

五、使用 Excel 插件或工具

除了上述方法，还可以使用一些专门的 Excel 插件或工具来实现筛选后重新编号的功能。这些工具通常提供更多的功能和更高的操作效率。以下是一些常用的插件和工具：

Kutools for Excel：

Kutools 是一款功能强大的 Excel 插件，提供了大量实用的工具和功能，包括筛选后重新编号。安装后，可以通过 Kutools 菜单快速访问相关功能。
Power Query：

Power Query 是 Excel 内置的一个强大数据处理工具，可以通过导入、整理和转换数据来实现筛选后重新编号。使用 Power Query，可以将数据导入到查询编辑器中，应用筛选条件，并添加自定义编号列。
第三方工具：

市面上还有一些第三方工具和插件，也提供了筛选后重新编号的功能。这些工具通常具有更高的灵活性和更多的选项，适合需要处理复杂数据的用户。

详细描述：使用插件或工具可以大大简化操作过程，提高效率和准确性。特别是对于需要频繁进行筛选和重新编号的用户，选择一款合适的工具可以节省大量时间和精力。

总结

本文介绍了多种 Excel 筛选后重新编号的方法，包括公式法、VBA 宏、手动操作、公式与宏结合的方法以及使用 Excel 插件或工具。每种方法都有其优点和适用场景，读者可以根据自己的需求和数据量选择合适的方法。

公式法适合数据量较小且不需要频繁操作的情况，VBA 宏则适用于大规模数据和需要自动化处理的场景。手动操作适合简单、少量的数据处理，而公式与宏结合的方法则提供了更高的灵活性和效率。最后，使用Excel 插件或工具可以进一步简化操作，提高工作效率。