Como atualizar a tabela dinâmica quando os dados mudam no Excel?

Como você sabe, se você alterar os dados na tabela original, a tabela dinâmica relativa não atualiza os dados nela ao mesmo tempo. Se você precisar atualizar a tabela dinâmica quando os dados mudarem na tabela no Excel, posso lhe mostrar algumas maneiras rápidas.

Atualize a tabela dinâmica em uma planilha pressionando Atualizar

Atualize a tabela dinâmica em uma planilha ou pasta de trabalho com VBA

Atualize a tabela dinâmica em uma planilha pressionando Atualizar

No Excel, há uma função Atualizar e Atualizar Tudo para atualizar a tabela dinâmica em uma única planilha.

Clique na tabela dinâmica que deseja atualizar os dados, e depois clique em Converter (no Excel 2013, clique em ANALYZE) > Atualizar > Atualizar. Veja a captura de tela:

Se você quiser atualizar todas as tabelas dinâmicas em uma única planilha, pode selecionar Atualizar Tudo.

Atualize a tabela dinâmica em uma planilha ou pasta de trabalho com VBA

Com o VBA, você não só pode atualizar todas as tabelas dinâmicas em uma única planilha, como também pode atualizar todas as tabelas dinâmicas em toda a pasta de trabalho.

1. Pressione as teclas F11 + Alt juntas no teclado para abrir a janela Microsoft Visual Basic for Applications.

2. Depois, clique em Inserir > Módulo para inserir uma nova janela de módulo. E então copie o seguinte código VBA para a janela.

VBA: Atualizar tabelas dinâmicas em uma planilha.

Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
    xTable.RefreshTable
Next
End Sub

3. Clique no botão Executar na janela ou na tecla F5 para executar o VBA, e então as tabelas dinâmicas em uma planilha serão atualizadas.

Dica: Para atualizar todas as tabelas dinâmicas em uma pasta de trabalho inteira, você pode usar o seguinte VBA.

VBA: Atualizar todas as tabelas dinâmicas em uma pasta de trabalho.

Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xTable In xWs.PivotTables
        xTable.RefreshTable
    Next
Next
End Sub

Artigos Relacionados:

• Atualizar tabela dinâmica ao abrir arquivo no Excel
• Atualizar intervalo de dados da tabela dinâmica no Excel