Como excluir uma ou todas as tabelas dinâmicas no Excel?

A tabela dinâmica é uma função muito útil para visualizar ou calcular dados no Excel, então geralmente podemos inserir tabelas dinâmicas em uma planilha ou várias planilhas. Mas você sabe como excluir uma ou todas as tabelas dinâmicas em uma planilha ou na pasta de trabalho inteira?

Excluir uma tabela dinâmica em uma planilha

Excluir todas as tabelas dinâmicas na pasta de trabalho inteira com VBA

Excluir uma tabela dinâmica em uma planilha

No Excel, você pode excluir uma tabela dinâmica da seguinte forma:

1. Clique no relatório da tabela dinâmica. Veja a captura de tela:

2. Em seguida, clique em Opção > Selecionar > Toda a Tabela Dinâmica para selecionar a tabela dinâmica. Veja a captura de tela:

Dica: Se você estiver usando o Excel 2013, selecione toda a tabela dinâmica clicando em Analisar > Selecionar > Toda a Tabela Dinâmica.

3. E pressione o botão Excluir no teclado, a tabela dinâmica será removida.

Excluir todas as tabelas dinâmicas na pasta de trabalho inteira com VBA

Se você tiver várias tabelas dinâmicas em uma pasta de trabalho, excluí-las uma por uma é muito demorado. Agora você pode usar um VBA para removê-las de uma só vez.

1. Pressione Alt + F11 para exibir a janela do Microsoft Visual Basic for Applications.

2. Na janela, clique em Inserir > Módulo para mostrar uma nova janela de módulo, depois copie o seguinte código VBA para a janela do módulo.

VBA: Remover todas as tabelas dinâmicas na pasta de trabalho inteira.

Sub DeleteAllPivotTablesInWorkbook()
'Updateby20140618
Dim xWs As Worksheet
Dim xPT As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xPT In xWs.PivotTables
        xWs.Range(xPT.TableRange2.Address).Delete Shift:=xlUp
    Next
Next
End Sub

Artigos Relacionados:

• Remover todos os comentários no Excel