Como listar todas as fórmulas no Excel?
Normalmente, no Excel, podemos exibir fórmulas rapidamente nas células, mas o Excel não fornece um recurso para listar todas as fórmulas em uma planilha. Listar todas as fórmulas de uma planilha pode nos ajudar a manter o rastreamento dos valores das células com suas fórmulas reais. Aqui, posso falar sobre como criar um código VBA para resolver esse problema.
Liste todas as fórmulas de uma planilha com código VBA
Liste todas as fórmulas de uma planilha com código VBA
O seguinte código VBA o ajudará a listar as fórmulas de uma seleção ou planilha, faça o seguinte:
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: lista 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. Então aperte F5 para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de selecionar um intervalo ou a planilha inteira que você deseja listar suas células de fórmula, consulte a captura de tela:
4. E, em seguida, clique em OK, as fórmulas em sua seleção foram listadas de uma vez em uma nova planilha na frente de sua planilha ativa que contém as informações do endereço da célula, fórmula e valor conforme a seguinte captura de tela mostrada:
Artigos relacionados:
Como converter fórmula em string de texto no Excel?
Como converter strings de texto em fórmulas no Excel?
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!