Excel: Как очистить все переименованные метки сводной таблицы

этот макрос удаляет все подписи из меток строк и столбцов во всех сводных таблицах книги. Это не будет работать с таблицами PowerPivot.

Sub FixPivotItemCaptions()
Dim pi As PivotItem
Dim pt As PivotTable
Dim wb As Workbook
Dim ws As Worksheet
Dim pf As PivotField

Set wb = ActiveWorkbook

Application.ScreenUpdating = False
For Each ws In wb.Worksheets
    For Each pt In ws.PivotTables
        For Each pf In pt.PivotFields
            For Each pi In pf.PivotItems
                pi.Caption = pi.SourceName
            Next
        Next
    Next
Next
Application.ScreenUpdating = True
End Sub

Если столбец, о котором идет речь, уже находится в нескольких поворотах, и есть некоторые усилия или проблемы, чтобы повторно добавить столбец или вы боитесь уничтожить некоторые макеты, например - тогда я предлагаю следующий простой способ:

• щелкните правой кнопкой мыши в любом месте сводной таблицы, выберите "Параметры сводной таблицы", выберите вкладку" Данные "и измените" количество элементов для сохранения в поле " на нет.
• обновить сводную

и там мы идем, старый элемент метки поля ("псевдонимы") являются забытый. Вы, возможно, захотите переименовать aliaes данные туда, где вы хотите их, и, возможно, отменить "количество элементов для сохранения в поле" для автоматического.