Como ocultar subtotais na tabela dinâmica?
Na tabela dinâmica, ao adicionar mais de um campo aos rótulos de linha ou coluna, serão exibidos os subtotais. Você já tentou remover os subtotais da tabela dinâmica?
Ocultar ou remover subtotais em uma tabela dinâmica
Ocultar ou remover subtotais em todas as tabelas dinâmicas da planilha atual
Ocultar ou remover subtotais em uma tabela dinâmica
Para remover os subtotais em uma tabela dinâmica, existe uma maneira fácil para você, faça o seguinte:
1. Clique em qualquer célula da tabela dinâmica e, a seguir, clique em Design > Subtotais > Não mostrar subtotais, veja a captura de tela:
2. E os subtotais na tabela dinâmica especificada foram ocultados de uma vez, consulte as capturas de tela:
 |
 |
 |
Ocultar ou remover subtotais em todas as tabelas dinâmicas da planilha atual
Se houver várias tabelas dinâmicas em sua planilha atual, e ocultar os subtotais um por um será entediante, portanto, o código VBA a seguir pode ajudá-lo a remover subtotais de todas as tabelas dinâmicas.
1. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: remover subtotais em todas as tabelas dinâmicas da planilha atual
Sub RemoveSubtotals()
'Update 20140905
Dim xPt As PivotTable
Dim xPf As PivotField
On Error Resume Next
For Each xPt In Application.ActiveSheet.PivotTables
For Each xPf In xPt.PivotFields
xPf.Subtotals(1) = True
xPf.Subtotals(1) = False
Next
Next
End Sub
3. Então aperte F5 chave para executar este código, e os subtotais em todas as tabelas dinâmicas da planilha ativa foram removidos de uma vez.
Dica: Se você deseja mostrar os subtotais novamente, pode clicar na tabela dinâmica e clicar em Design > Mostrar subtotais na parte inferior do grupo/ Mostrar subtotais no topo do grupo.
Artigos relacionados:
Como mostrar vários totais gerais na tabela dinâmica?
Como classificar com ordem de lista personalizada na tabela dinâmica?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
