Como listar todas as fórmulas no Excel?

Normalmente, no Excel, podemos exibir rapidamente fórmulas nas células, mas o Excel não oferece um recurso para listar todas as fórmulas em uma planilha. Listar todas as fórmulas de uma planilha pode nos ajudar a rastrear os valores das células com suas fórmulas reais. Aqui, posso explicar como criar um código VBA para resolver esse problema.

Listar todas as fórmulas de uma planilha com código VBA

Listar todas as fórmulas de uma planilha com código VBA

O seguinte código VBA ajudará você a listar as fórmulas de uma seleção ou de uma planilha; por favor, siga os passos abaixo:

1. Pressione e segure as teclas ALT + F11, isso abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Listar todas as fórmulas de uma planilha

Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
    xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    xSheet.Cells(xRow, 2) = " " & Rng.Formula
    xSheet.Cells(xRow, 3) = Rng.Value
    xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub

3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de aviso aparecerá para lembrá-lo de selecionar um intervalo ou toda a planilha que deseja listar suas células de fórmula, veja a captura de tela:

4. E então clique em OK, as fórmulas em sua seleção serão listadas imediatamente em uma nova planilha à frente da sua planilha ativa, contendo informações sobre o endereço da célula, fórmula e valor, conforme mostrado na captura de tela a seguir:

Artigos relacionados:

Como converter fórmula em texto no Excel?

Como converter sequências de texto em fórmulas no Excel?