vba - Excel VBA小计留下了很大的差距

Question

我运行 Excel 2003 对 VBA 来说还是新的，所以我敢肯定。我有一个电子表格，其中列出了许多单元模型，谁拥有该单元以及哪个“团队”(团队 1、团队 2 等)拥有该单元，我想在按团队排序时得到一个小计，我是使用此代码:

Sub Subtotals()
    Rows.Select
    Selection.Subtotal GroupBy:=4, Function:=xlCount, TotalList:=Array(4), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

现在，这非常适合按团队计算单位并为每个团队插入小计，但由于某种原因，最后一个团队和总计比最后一个条目下降了大约 300 行。为什么要这样做？

Answer 1

这是不可预测的原因是不合格的 Rows.Select
您需要指定您真正想要应用小计的范围，例如:

Sub Subtotals()
    Dim rng as range

    Set rng = '  the range you want
    rng.Subtotal GroupBy:=4, Function:=xlCount, TotalList:=Array(4), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

在 VBA 中指定范围的方法有很多种，编程方式和手动方式。使用哪一个主要取决于您的工作表布局。