- Renomeie o cabeçalho / nome da coluna na origem
- Atualize o pivô. Isso eliminará todos os rótulos forçados e soltará o campo do pivô.
- Renomeie o nome da coluna para o que era
- Atualizar o pivô novamente
- Adicione o campo de volta ao seu pivô.
Ao usar Tabelas Dinâmicas no Excel, geralmente é útil sobrescrever certos rótulos de Tabela Dinâmica com novos nomes.
Se você tiver uma longa lista de itens que você reclassificou, pode ser fácil perder o controle dos rótulos originais. O único método que encontrei para restaurar os rótulos originais é entrar nos dados de origem, extrair todos os rótulos originais e alterar o rótulo de Tabela Dinâmica um a um.
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, em uma só penada?
Editar: estou usando o Excel 2010, mas também estou interessado em qualquer método disponível em versões posteriores.
Esta macro removerá todas as legendas dos rótulos de linha e rótulos de coluna em todos os itens dinâmicos 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 problemas para adicionar novamente a coluna ou você tem medo de destruir alguns layouts, por exemplo - então proponho a seguinte maneira fácil:
E lá vamos nós, o antigo item de rótulo de campo ("aliases") é esquecido. Você possivelmente deseja renomear os alias de dados de volta para onde quiser, e, possivelmente, desfazer o "Número de itens a serem retidos por campo" para automático.
você pode permitir que o excel esqueça itens que não tenha sido visto na atualização mais recente, depois carregue uma tabela fictícia (selecione top 1 from).
Algumas variantes disso funcionarão para todas as versões do Excel.