Как автоматически обновить сводную таблицу в Excel?

Обычно, когда мы обновляем исходные данные сводной таблицы, она не будет обновлена до тех пор, пока мы вручную не нажмем «Анализ» → «Обновить». Это может быть довольно утомительно, если сводная таблица находится на другом листе, и вы можете забыть обновить её. В этой статье мы представим VBA для автоматического обновления сводной таблицы в Excel.

Автоматическое обновление сводной таблицы с помощью VBA

Автоматическое обновление сводной таблицы с помощью VBA

Пожалуйста, следуйте приведенным ниже шагам, чтобы применить VBA для автоматического обновления указанной сводной таблицы в Excel.

1На панели вкладок листов щелкните правой кнопкой мыши вкладку листа, содержащую исходные данные, и выберите Просмотр кода в контекстном меню. См. скриншот:

2. В открывшемся окне Microsoft Visual Basic for Applications вставьте код.

VBA: Автообновление указанной сводной таблицы

Private Sub Worksheet_Change(ByVal Target As Range)
 Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
 End Sub

Примечания:
(1) В коде Worksheets("имя листа").PivotTables("Имя сводной таблицы").PivotCache.Refresh замените имя листа на имя листа, содержащего указанную сводную таблицу, и замените Имя сводной таблицы на имя указанной сводной таблицы.
(2) Выберите любую ячейку в указанной сводной таблице, и вы получите её имя на вкладке Анализ (или Опции ). См. скриншот:

3. Сохраните код.

С этого момента, когда вы измените данные в исходных данных, указанная сводная таблица будет обновляться автоматически.

Связанные статьи:

Как усреднять по дням/месяцам/кварталам/часам с помощью сводной таблицы в Excel?