Как обновить сводную таблицу при изменении данных в Excel?
Как вы знаете, если вы изменяете данные в исходной таблице, связанная сводная таблица не обновляет данные одновременно. Если вам нужно обновлять сводную таблицу при изменении данных в таблице в Excel, я могу предложить несколько быстрых способов.
Обновление сводной таблицы на листе с помощью нажатия кнопки Обновить
Обновление сводной таблицы на листе или в книге с помощью VBA
Обновление сводной таблицы на листе с помощью нажатия кнопки Обновить
В Excel есть функции Обновить и Обновить все для обновления сводной таблицы на одном листе.
Нажмите на сводную таблицу, которую хотите обновить, затем нажмите Конвертировать (в Excel 2013 нажмите АНАЛИЗ) > Обновить > Обновить. См. скриншот:
Если вы хотите обновить все сводные таблицы на одном листе, выберите Обновить все.
Обновление сводной таблицы на листе или в книге с помощью VBA
С помощью VBA вы можете обновлять не только все сводные таблицы на одном листе, но также все сводные таблицы во всей книге.
1. Нажмите клавиши F11 + Alt вместе на клавиатуре, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Затем нажмите Вставить > Модуль, чтобы вставить новое окно модуля. После этого скопируйте следующий код VBA в это окно.
VBA: Обновление сводных таблиц на листе.
Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
xTable.RefreshTable
Next
End Sub
3. Нажмите кнопку Выполнить в окне или клавишу F5 для запуска VBA, после чего сводные таблицы на листе будут обновлены.
Совет: Чтобы обновить все сводные таблицы во всей книге, вы можете использовать следующий код VBA.
VBA: Обновление всех сводных таблиц в книге.
Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
For Each xTable In xWs.PivotTables
xTable.RefreshTable
Next
Next
End Sub
Связанные статьи:
- Обновление сводной таблицы при открытии файла в Excel
- Обновление диапазона данных сводной таблицы в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек