Как удалить одну или все сводные таблицы в Excel?
Сводная таблица — это очень полезная функция для просмотра или вычисления данных в Excel, поэтому мы часто можем вставлять сводные таблицы в один рабочий лист или несколько рабочих листов. Но знаете ли вы, как удалить одну или все сводные таблицы на рабочем листе или во всей книге?
Удаление одной сводной таблицы на рабочем листе
Удаление всех сводных таблиц во всей книге с помощью VBA
Удаление одной сводной таблицы на рабочем листе
В Excel вы можете удалить одну сводную таблицу следующим образом:
1. Щелкните по отчету сводной таблицы. См. скриншот:
2. Затем нажмите Вид > Выбрать > Вся сводная таблица, чтобы выбрать всю сводную таблицу. См. скриншот:
Совет: Если вы используете Excel 2013, выберите всю сводную таблицу, щелкнув Анализ > Выбрать > Вся сводная таблица.
3. Нажмите клавишу Удалить на клавиатуре, и сводная таблица будет удалена.
Удаление всех сводных таблиц во всей книге с помощью VBA
Если у вас есть несколько сводных таблиц в книге, удаление их по одной занимает слишком много времени. Теперь вы можете использовать VBA для их одновременного удаления.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В открывшемся окне нажмите Вставить > Модуль, чтобы отобразить новое окно модуля, затем скопируйте следующий код VBA в окно модуля.
VBA: Удалить все сводные таблицы во всей книге.
Sub DeleteAllPivotTablesInWorkbook()
'Updateby20140618
Dim xWs As Worksheet
Dim xPT As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
For Each xPT In xWs.PivotTables
xWs.Range(xPT.TableRange2.Address).Delete Shift:=xlUp
Next
Next
End Sub
3. Нажмите Выполнить кнопку, после чего все сводные таблицы во всей книге будут удалены.Связанные статьи:
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек