Excel VBA语法错误和使用除select以外的其他方法

我有一段代码，应该格式化一个信息选项卡。 我从之前使用过的一段代码中取出了它，并且正在修改它以适应我的需要。 我在.Selection Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(8, 10), _ Replace:=True, PageBreaks:=False, SummaryBelowData:=True行获取syntax error 。

VBA不完全是我的强项，所以我想找出一个方法来正确执行此操作。 我知道select是皱眉，所以如果有人有办法解决它，而不必重做一堆将是真棒的代码。

 With ActiveSheet .Range("A10").Select .Range(Selection, Selection.End(xlToRight)).Select .Range(Selection, Selection.End(xlDown)).Select .Selection Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(8, 10), _ Replace:=True, PageBreaks:=False, SummaryBelowData:=True .Outline.ShowLevels RowLevels:=2 .Range("C8").Select End With 

Answer 1

工作代码应该是：

 With ActiveSheet .Range("A10").Select .Range(Selection, Selection.End(xlToRight)).Select .Range(Selection, Selection.End(xlDown)).Select Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(8, 10), _ Replace:=True, PageBreaks:=False, SummaryBelowData:=True .Outline.ShowLevels RowLevels:=2 .Range("C8").Select End With 

Subtotal是需要在Selection上调用的子。 所以需要一段时间来打电话。

另外Selection不是ActiveSheet的属性，所以前面的句点应该放在With块中。