Как автоматически обновить сводную таблицу в 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. Сохраните код.
С этого момента, когда вы измените данные в исходных данных, указанная сводная таблица будет обновляться автоматически.
Легко объединить несколько листов/книг/CSV файлов в один лист/книгу
Может быть утомительно объединять десятки листов из разных книг в один лист. Но с помощью утилиты Kutools для Excel «Объединить (листы и книги) », вы сможете сделать это всего за несколько кликов!
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Связанные статьи:
Как усреднять по дням/месяцам/кварталам/часам с помощью сводной таблицы в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.





- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек