运行时错误'1004：范围类的小计方法失败

Question

我正在尝试使用以下代码在特定工作表（清单）上运行小计；

ActiveWorkbook.Sheets("List").Activate

Columns("A:G").Select

Selection.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(4, 5, 6)

但是，请继续获取以下错误（突出显示代码的最后一行）；

运行时错误'1004：

Range类的小计方法失败

任何帮助将非常感激！

谢谢

Answer 1

我不认为您正在处理自己认为的工作表。 要确认这一点，请更换

ActiveWorkbook.Activate

同

ActiveWorkbook.Select

它们不相等。 为了避免将来发生这种情况，请在所需的工作表上进行如下明确的工作：

Dim ws as Worksheet
Set ws = ThisWorkbook.Sheets("List")

ws.Columns("A:G").Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(4, 5, 6)

这个问题有一些很好的答案，表明我认为是您的问题。 特别是这个 。

Answer 2

我在Delphi上遇到此错误，该决定有助于为xlSum = -4157和xlSummaryBelow = 1设置数值（请看此处https://msdn.microsoft.com/zh-cn/vba/excel-vba/ article / range-subtotal-method-excel ）