Формула для ссылки на всю сводную таблицу?

У меня есть куча листов с подробными наборами данных и сводными таблицами. На сводном листе я хочу отображать только сводные таблицы. (Конечно, я предпочел бы остаться СУХИМ и не создавать совершенно новый набор.) Как я могу ссылаться на старые сводные таблицы?

Я могу использовать VBA для этого, если это необходимо.


excel pivot-table vba
person Nick Heiner    schedule 21.10.2009    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Эта подпрограмма будет поддерживать сводные таблицы в рабочем состоянии. Вы можете вставить значения поверх них, если вы этого не хотите.

Sub SummarizePivotTables()
    Dim wb As Workbook, ws As Worksheet, ss As Worksheet, pt As PivotTable
    Dim pasteRow As Long
    Const rowsBetween As Long = 1

    Set wb = ThisWorkbook
    Set ss = wb.Worksheets("Summary")
    pasteRow = 1 'first table row'

    For Each ws In wb.Worksheets
        For Each pt In ws.PivotTables
            'change this to TableRange1 if you do not want the page field included'
            With pt.TableRange2
                .Copy ss.Range("A" & pasteRow)
                pasteRow = pasteRow + .Rows.Count + rowsBetween
            End With
        Next pt
    Next ws
End Sub
person Ryan Shannon    schedule 22.10.2009