我有一个宏从一个源表中提取值，将它们粘贴到另一个工作表中，然后根据列将它们组合在一起并分配分页符。我唯一的问题是，我发现这样做的唯一方法是使用Selection.Subtotal函数。并使用Selection.Subtotal函数添加下面的数据，向您显示您分组的数据集的计数/总和/，然后显示＆＃34;宏计数/总和/任何＆＃34;下面53行（53？真的？）。这是代码块：
Selection.Subtotal GroupBy:=8, Function:=xlCount, TotalList:=Array(6), _
Replace:=True, PageBreaks:=True, SummaryBelowData:=True
毋庸置疑，我一直在捣乱这一点并没有多少运气。问题是，显示在数据下方的所有额外行只是两个额外的页面，这些页面被打印出来，我不想要。所以我需要一些方法来包含宏来找到实际数据的最后一行然后隐藏它下面的59行，或者找到第一行说出＆＃34; Count ...＆＃34;在第8列然后隐藏它和它下面的58行。
有什么想法吗？