每日新增数据跨工作表动态排序：SMALL函数卡顿问题最优方案咨询

阿华AIGC实验室

2026-5-20

最优解决方案

这问题我太熟了——用SMALL硬拉到十万多行确实会把Excel拖垮，毕竟每个单元格都在反复计算整列的排序值，哪怕是空行也不闲着，文件能不臃肿卡顿嘛！给你几个优先级排序的最优方案：

1. 动态数组公式（Excel 365/2021+ 首选）

这是最省心的方法，完全适配新增数据，不用手动拉公式，也不会生成多余的空行计算。

如果你只是要把Sheet1的某列（比如A列）按升序排序后放到Sheet2，直接在Sheet2的第一个数据单元格（比如A2，假设A1是表头）输入：

=SORT(Sheet1!$A:$A, , , TRUE)

最后一个TRUE用于保留表头，如果Sheet1没有表头，就去掉这个参数，写成=SORT(Sheet1!$A:$A)。公式会自动溢出到所有有数据的行，新增数据后会自动扩展，完全不用额外操作。

如果是要提取第k小的值（对应你原来用SMALL的场景），用SEQUENCE配合SMALL，只生成对应数据行数的结果：

=SMALL(Sheet1!$A:$A, SEQUENCE(COUNTA(Sheet1!$A:$A)))

COUNTA会统计Sheet1 A列的非空行数，SEQUENCE生成对应数量的序列，SMALL只计算需要的次数，不会浪费资源在十万空行上。

优点：原生函数，无需宏，自动适配新增数据，文件体积骤降，操作零成本。

2. Power Query（Get & Transform）—— 无宏、兼容旧版（2016+内置，2010/2013需装插件）

Power Query是Excel的后台数据处理工具，不会在单元格里堆公式，而是保存处理步骤，文件体积小得多。

操作步骤：

点击「数据」选项卡 → 「从表格/区域」（如果Sheet1的数据是表格直接选；不是的话先选中数据区域，勾选「我的表格有标题」）
在Power Query编辑器里，选中要排序的列，点击「排序」按钮（升序/降序）
点击「关闭并上载」，选择上载到Sheet2的指定位置
新增数据后，右键点击Sheet2的数据区域 → 「刷新」就能自动更新；也可以设置自动刷新（右键查询 → 「属性」→ 勾选「打开文件时刷新」）

优点：无宏风险，数据处理高效，适合大量数据，操作直观。

3. VBA事件触发自动更新—— 适合旧版Excel或高度自定义需求

如果用的是Excel 2013及更早版本，或者需要更灵活的逻辑（比如排序后还要做其他处理），可以用VBA在Sheet1新增数据时自动更新Sheet2的排序结果，只生成必要的行，删掉多余的空行。

打开VBA编辑器（Alt+F11），找到Sheet1的代码窗口，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastSourceRow As Long
    Dim lastTargetRow As Long
    
    ' 替换成你的实际表名
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取源表A列最后一行数据
    lastSourceRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 清空目标表旧数据（假设第1行是表头）
    lastTargetRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    If lastTargetRow > 1 Then
        targetSheet.Range("A2:A" & lastTargetRow).ClearContents
    End If
    
    ' 排序源表并复制到目标表
    sourceSheet.Range("A1:A" & lastSourceRow).Sort _
        Key1:=sourceSheet.Range("A1"), _
        Order1:=xlAscending, _
        Header:=xlYes ' 无表头则改成xlNo
    
    ' 复制排序后的数据（跳过表头）
    sourceSheet.Range("A2:A" & lastSourceRow).Copy targetSheet.Range("A2")
End Sub

保存文件为「启用宏的工作簿（.xlsm）」，以后Sheet1新增数据时，Sheet2会自动更新排序结果，只会保留有数据的行。

优点：完全自动，无多余计算，适合自定义需求；缺点是需要启用宏，用户需信任文件。