创建数据透视表宏 - 需要通过代码删除标记的行

Question

我想标记的行（小计）不见了，这里是我的数据透视表（我正在编写一个宏）的代码有什么建议吗？ See picture here

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=ActiveSheet.UsedRange).CreatePivotTable TableDestination:="", TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10 
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(1, 1) 
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Kostenstellen-Nr" 
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Konto-Nr" 
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Betrag Brutto" 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Kostenstellen-Nr").Orientation = xlRowField 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Konto-Nr").Orientation = xlRowField 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Betrag Brutto"), "Sum of Betrag Brutto", xlSum 

Answer 1

你说的是分类汇总，录制宏，并通过顶部功能区改变它（数据透视表工具/设计）。

此行添加到您的代码：

ActiveSheet.PivotTables("PivotTable1").PivotFields("Kostenstellen-Nr").Subtotals = Array(_ 
    False, False, False, False, False, False, False, False, False, False, False, False)