Устаревшие элементы в сводной таблице
В сводной таблице, когда я отправляюсь фильтровать данные с помощью метки 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
Это приведет к удалению любых старых элементов при каждом открытии книги, предполагая, что макросы включены.