Устаревшие элементы в сводной таблице

В сводной таблице, когда я отправляюсь фильтровать данные с помощью метки Row, где он показывает список флажков, в котором вы можете выбрать один или несколько или все элементы, которые будут включены, этот список включает элементы, которые больше не существуют, Или, альтернативно, если вы перейдете в список полей сводной таблицы и выберите поле и попробуйте его отфильтровать, появится то же самое.

То есть, у меня был определенный элемент в этом столбце в моей электронной таблице Excel (источник для сводной таблицы), а месяц назад я прекратил использовать этот определенный элемент, поэтому он больше не появляется в источнике данных, Но он все еще отображается в списке флажков для метки Row в сводной таблице. Как я могу удалить их? Обновление сводной таблицы не устраняет это. Есть уже много разных ящиков, и это просто усложняет чтение.

Спасибо за любую помощь

Ответ 1

Взято из http://www.contextures.com/xlPivot04.html

Удалить старые элементы из сводной таблицы в Excel 2007

Щелкните правой кнопкой мыши ячейку в сводной таблице
Нажмите "Параметры сводной таблицы"
Перейдите на вкладку "Данные"
В разделе "Сохранить элементы" выберите "Нет" в раскрывающемся списке
Нажмите "ОК", затем обновите сводную таблицу

Ответ 2

Если это то, что вы часто встречаете в сводной таблице, подумайте о создании процедуры VBA для удаления старых элементов.

Нажмите Alt - F11 для доступа к редактору VBA
В окне проводника проекта дважды щелкните "ThisWorkbook"
В двух верхних раскрывающихся списках над окном кода выберите "Рабочая книга" слева и "Открыть" справа.

Вставьте следующий код из адаптированного из Учебное пособие Excel Pivot Table - Очистить старые элементы

Private Sub Workbook_Open()

    'prevents unused items in non-OLAP PivotTables
    'pivot table tutorial by contextures.com
    Dim pt As PivotTable
    Dim ws As Worksheet
    Dim pc As PivotCache

    'change the settings
    For Each ws In ActiveWorkbook.Worksheets
      For Each pt In ws.PivotTables
        pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
      Next pt
    Next ws

    'refresh all the pivot caches
    For Each pc In ActiveWorkbook.PivotCaches
      On Error Resume Next
      pc.Refresh
    Next pc

End Sub

Это приведет к удалению любых старых элементов при каждом открытии книги, предполагая, что макросы включены.