¿Cómo enumerar todas las fórmulas en Excel?
Normalmente, en Excel, podemos mostrar fórmulas rápidamente en las celdas, pero Excel no proporciona una función para enumerar todas las fórmulas en una hoja de trabajo. Enumerar todas las fórmulas de una hoja de trabajo puede ayudarnos a realizar un seguimiento de los valores de celda con sus fórmulas reales. Aquí, puedo hablar sobre la creación de un código VBA para resolver este problema.
Enumere todas las fórmulas de una hoja de trabajo con código VBA
Enumere todas las fórmulas de una hoja de trabajo con código VBA
El siguiente código de VBA lo ayudará a enumerar las fórmulas de una selección o una hoja de trabajo, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: enumere todas las fórmulas de una hoja de trabajo
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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione un rango o la hoja de trabajo completa que desea enumerar sus celdas de fórmula, vea la captura de pantalla:
4. Y luego haz clic OK, las fórmulas en su selección se han enumerado a la vez en una nueva hoja de trabajo en el frente de su hoja de trabajo activa que contiene la información de la dirección de celda, fórmula y valor como se muestra en la siguiente captura de pantalla:
Artículos relacionados:
¿Cómo convertir una fórmula a una cadena de texto en Excel?
¿Cómo convertir cadenas de texto a fórmulas en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!