Как обновить сводную таблицу при изменении данных в 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% и сократите сотни лишних кликов мышью каждый день!