Как обновить сводную таблицу при изменении данных в Excel?
Как известно, если вы измените данные в исходной таблице, соответствующая сводная таблица не обновится автоматически. Если вам нужно, чтобы сводная таблица обновлялась при изменении данных в таблице Excel, я могу предложить несколько быстрых способов.
Обновить Сводная таблица на листе с помощью кнопки «Обновить»
Обновить Сводная таблица на листе или в книге с помощью VBA
Обновить Сводная таблица на листе с помощью кнопки «Обновить»
В Excel есть функции «Обновить» и «Обновить всё» для обновления сводной таблицы на одном листе.
Выберите сводную таблицу, данные которой нужно обновить, затем нажмите Параметр(в Excel 2013 щелкните)АНАЛИЗ) > Обновить > Обновить. См. снимок экрана:
Чтобы обновить все сводные таблицы на одном листе, выберите «Обновить всё».
Обновить Сводная таблица на листе или в книге с помощью VBA
С помощью VBA можно не только обновить все сводные таблицы на одном листе, но и обновить все сводные таблицы во всей книге.
1. Нажмите одновременно клавиши Alt + F11 на клавиатуре, чтобы открыть окно 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек