Excel: Como limpar todos os rótulos de Tabela Dinâmica renomeados

Ao usar as Tabelas Dinâmicas no Excel, geralmente é útil sobrescrever determinados rótulos de Tabelas Dinâmicas com novos nomes.

Se você tiver uma longa lista de itens rotulados novamente, pode ser fácil perder o controle dos rótulos originais. O único método que encontrei para restaurar os rótulos originais é acessar os dados de origem, desenterrar todos os rótulos originais e alterar o rótulo da Tabela Dinâmica novamente, um de cada vez.

Eu tenho mais de 50 rótulos renomeados, isso é tedioso.

Existe alguma maneira de limpar todos os rótulos de Tabela Dinâmica renomeados para um determinado campo, de uma só vez?

Edit: Estou usando o Excel 2010, mas também estou interessado em qualquer método disponível em versões posteriores.

1. Renomeie o cabeçalho / nome da coluna na fonte
2. Atualize o pivô. Isso eliminará todos os rótulos forçados e eliminará o campo do pivô.
3. Renomeie o nome da coluna novamente para o que era
4. Atualizar o pivô novamente
5. Adicione o campo novamente ao seu pivô.

Essa macro removerá todas as legendas dos rótulos de linha e de coluna em todas as tabelas dinâmicas em uma pasta de trabalho. Isso NÃO funcionará com as tabelas do 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

Se a coluna em questão já estiver em vários Pivots e houver algum esforço ou problema para adicionar novamente a coluna ou você tem medo de destruir alguns layouts, por exemplo - então proponho a seguinte maneira fácil:

• Clique com o botão direito do mouse em qualquer lugar do pivô, selecione "Opções da tabela de tabela dinâmica", selecione a guia "Dados" e altere "Número de itens a serem retidos por campo" para nenhum.
• atualize o pivô

E lá vamos nós, o item antigo do rótulo de campo ("aliases") é esquecido. Você possivelmente deseja renomear os alias de dados de volta para onde deseja e possivelmente desfazer o "Número de itens a serem retidos por Campo" para automático.

você pode permitir que o Excel esqueça os itens que não foram vistos na atualização mais recente e carregue uma tabela fictícia (selecione as 1 primeiras).

Alguma variante disso funcionará para todas as versões do excel.

http://www.contextures.com/xlPivot04.html