¿Cómo listar todas las fórmulas en Excel?

Normalmente, en Excel, podemos mostrar rápidamente las fórmulas en las celdas, pero Excel no proporciona una función para listar todas las fórmulas en una hoja de cálculo. Listar todas las fórmulas de una hoja de cálculo puede ayudarnos a hacer un seguimiento de los valores de las celdas con sus fórmulas reales. Aquí, puedo hablar sobre la creación de un código VBA para resolver este problema.

Listar todas las fórmulas de una hoja de cálculo con código VBA

Listar todas las fórmulas de una hoja de cálculo con código VBA

El siguiente código VBA le ayudará a listar las fórmulas de una selección o una hoja de cálculo; por favor, haga lo siguiente:

1. Mantenga presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, y pegue el siguiente código en la Ventana del Módulo.

Código VBA: Listar todas las fórmulas de una hoja de cálculo

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. Luego, presione la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo que le recordará que seleccione un rango o toda la hoja de cálculo de la que desea listar las celdas con fórmulas, como se muestra en la siguiente captura de pantalla:

4. Luego, haga clic en Aceptar, y las fórmulas en su selección se habrán listado de inmediato en una nueva hoja de cálculo delante de su hoja de cálculo activa, que contiene la información de la dirección de la celda, la fórmula y el valor, como se muestra en la siguiente captura de pantalla:

Artículos relacionados:

¿Cómo convertir una fórmula en una cadena de texto en Excel?

¿Cómo convertir cadenas de texto en fórmulas en Excel?