Question

我当前的代码导致我的数据字段以行而不是列为单位返回。我的目标是使数据字段具有柱状方向。

Set objtable = Sheets(Worksheets.Count).PivotTableWizard

    Set objfield = objtable.PivotFields("Asset ID")
        objfield.Orientation = xlRowField

    Set objfield = objtable.PivotFields("Date")
        objfield.Orientation = xlColumnField

    Set objfield = objtable.PivotFields("Landmark")
        objfield.Orientation = xlPageField

    Set objfield = objtable.PivotFields("Charge")
        objfield.Orientation = xlDataField
        objfield.Function = xlSum

    Set objfield = objtable.PivotFields("Arrival Date")
        objfield.Orientation = xlDataField
        objfield.Function = xlMinenter code here

Answer 1

它取决于Pivot表版本。以下代码可以帮助您解决问题，在创建数据透视表时使用版本12 xlPivotTableVersion12。

DesWorkBk.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=sourcedataStr, Version:=xlPivotTableVersion12).CreatePivotTable _
       TableDestination:=wsPvtTbl.Range("A1"), TableName:="PivotTable2"

VBA数据透视表数据域方向需要翻转

1 个答案: