Добрый день. На одном листе необходимо разместить несколько сводных макросом:
| Код |
|---|
Sub ддд()
Dim lr1&
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Лист1!R9C1:R2000C25", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Лист2!R1C1", TableName:="СводнаяТаблица1", _
DefaultVersion:=xlPivotTableVersion15
With ActiveSheet.PivotTables("СводнаяТаблица1")
.PivotFields( _"группа")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields( _"степень")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables _
("СводнаяТаблица1").PivotFields("размер"), _
"Количество по полю размер", xlCount
lr1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveWorkbook.Worksheets("Лист2").PivotTables("СводнаяТаблица1").PivotCache. _
CreatePivotTable TableDestination:=Worksheets("Лист2").Cells(lr1 + 1, 1), TableName:= _
"СводнаяТаблица2", DefaultVersion:=xlPivotTableVersion15
With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("канал")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("вид")
.Orientation = xlRowField
.Position = 2 End With
ActiveSheet.PivotTables("СводнаяТаблица2").AddDataField ActiveSheet.PivotTables _
("СводнаяТаблица2").PivotFields("Совокупный"), _
"Количество по полю Совокупный", xlCountEnd Sub |
Вот только количество строк с результатами всегда будут разное, то есть первая таблица выйдет за пределы 34 строки. Может подскажете как разместить вторую сводную после результатов первой и указать этот адрес в TableDestination:="Лист2!R35C1" ?
Изменено: - 13.03.2017 16:19:02
