列而不是行中的數據字段值

Question

我已經編寫了下面的代碼來設置我的工作表中已經存在的數據透視表的行和數據字段。

我的問題是數據字段顯示在行而不是列中。 它像是 -

錯誤的

我想要它像 -

正確的

Sub Create_CR_DT
Set pt = ActiveSheet.PivotTables(1)

'Remove existing Data fields
For Each pf In pt.DataFields
    pf.Orientation = xlHidden
Next pf

'Remove existing Row fields
For Each pf In pt.RowFields
    pf.Orientation = xlHidden
Next pf

'Remove existing Column fields
For Each pf In pt.ColumnFields
    pf.Orientation = xlHidden
Next pf


'Set VR.NO as 1st row
pt.PivotFields(" VR. NO.").Orientation = xlRowField
pt.PivotFields(" VR. NO.").Position = 1

'Set DataFields
pt.PivotFields("INCOME TAX").Orientation = xlDataField
pt.PivotFields("CESS").Orientation = xlDataField
pt.PivotFields("I.G.S.T").Orientation = xlDataField
pt.PivotFields("C.G.S.T").Orientation = xlDataField
pt.PivotFields("C.G.S.T BY CASH").Orientation = xlDataField
pt.PivotFields("S.G.S.T").Orientation = xlDataField 
End Sub

Answer 1

早上我再次用谷歌搜索，經過 4-5 次嘗試，我能夠自己解決它。

只是在最后添加了下面的行，它就起作用了。

pt.DataPivotField.Orientation = xlColumnField

謝謝大家！！