Как удалить одну или все сводные таблицы в 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

Связанные статьи:

• Удалить все комментарии в Excel