主题：设置了汇总，但是筛选后常出现错误如何解决

我测试没问题。试试改成

With e.NewRange
    Dim t As Integer = .TopRow
    Dim b As Integer = .BottomRow
    If t >= 0 AndAlso b >= 0 AndAlso t < e.Table.rows.count AndAlso b < e.Table.Rows.count Then
        e.Table.Aggregate(AggregateEnum.Sum, .TopRow, 2, .BottomRow, 2)
    End If
End With

如果还有问题，试试加入变量，在beforeFilter、beforeSort事件，记录 vars("stop") = true，然后判断此变量，afterFilter、aftersort事件，设置 vars("stop") = false

如果还有问题，上传实例测试。