筛选经理后，如何让AX4:BI列的小计随筛选结果动态变化？

原代码使用SUM函数计算列总和，但SUM会包含筛选隐藏的行，导致筛选后小计无法同步更新。要实现跟随筛选结果动态变化的小计，需改用SUBTOTAL函数——它会自动忽略筛选隐藏的行。

修改后的代码 #

' 假设外层With块指向AX4:BI的数据区域（例如With Range("AX4:BI" & Cells(Rows.Count, "AX").End(xlUp).Row)）
If .Cells(.Rows.Count, 1).Value <> "Total" Then
    With .Offset(.Rows.Count, 0).Resize(1)
        ' SUBTOTAL参数9对应SUM功能，自动忽略筛选隐藏行；若要同时忽略手动隐藏行，改用参数109
        .FormulaR1C1 = "=SUBTOTAL(9, R4C:R[-1]C)"
        .Columns(1).Value = ""
        .Columns(2).Value = "Total"
        ' 可选：设置小计行格式，增强辨识度
        .Font.Bold = True
    End With
End If
' 注意：原代码末尾多余的End With需匹配外层With块，避免编译报错

关键说明 #

• SUBTOTAL函数逻辑：第一个参数9指定执行SUM计算，且仅统计可见行；若需同时排除手动隐藏的行，替换为参数109即可。
• 公式范围修正：将原公式的R2C调整为R4C，匹配你的数据起始行AX4，避免误统计表头或空行。
• 重复添加防护：通过.Cells(.Rows.Count, 1).Value <> "Total"的判断，防止每次运行代码重复插入小计行。
• 结构校验：确保外层With块正确指向目标数据区域，多余的End With需删除或匹配对应层级，避免代码报错。

若筛选后小计仍未更新，排查以下点：

• 确认数据区域已启用自动筛选（执行过Range.AutoFilter）。
• 确保小计行位于数据区域下方，未被筛选规则影响（筛选仅作用于数据行，汇总行不会被隐藏）。

内容的提问来源于stack exchange，提问作者rookiemistake