運行時錯誤'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 ）