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

Question

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

ActiveWorkbook.Sheets("List").Activate

Columns("A:G").Select

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

但是不断收到以下错误（突出显示最后一行代码）;

运行时错误＆＃39; 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)

此question有一些很好的答案，表明我认为是您的问题。特别是this one。

Answer 2

我在Delphi上有这个错误，决定帮助设置xlSum = -4157和xlSummaryBelow = 1的数值（看这里https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-subtotal-method-excel）