Скачать или смотреть Excel Pivot Table - Grouping a Row Field

Excel Pivot Table Grouping a Row Field

Sub groupRowField()

Set WSD = ActiveSheet

FinalRow = WSD.Cells(Application.Rows.Count, 1).End(xlUp).Row
FinalCol = WSD.Cells(1, Application.Columns.Count).End(xlToLeft).Column
Set PRange = WSD.Cells(1, 1).Resize(FinalRow, FinalCol)
PRange.Select

Set PTCache = ActiveWorkbook.PivotCaches.Add(xlDatabase, SourceData:=PRange)


Set PT = PTCache.CreatePivotTable(TableDestination:=Cells(1, 6), TableName:="PivotTable1")

PT.AddFields RowFields:=Array("Sales Name", "Inv Date"), _
ColumnFields:="Sales Region" ', PageFields:="Sales Region"

With PT.PivotFields("Amount")
.Orientation = xlDataField
.NumberFormat = "#,##0"
End With

PT.PivotFields("Inv Date").LabelRange.Group Start:=True, _
End:=True, Periods:=Array(False, False, False, False, True, False, True)

End Sub