创build数据透视表macros – 需要通过代码删除标记的行

我想标记的行（小计）不见了，这里是我的数据透视表（我正在编写一个macros）的代码有什么build议吗？ 在这里看到图片

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

您正在讨论小计，您将logging一个macros并通过顶部function区（数据透视表工具/devise）进行更改。

将这行添加到您的代码中：

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