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

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

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

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

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

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

2. В открывшемся окне Microsoft Visual Basic для приложений вставьте код.

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

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

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

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

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

Статьи по теме:

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