¿Cómo resaltar todas las celdas referenciadas por una fórmula en Excel?

Este artículo explica cómo resaltar todas las celdas referenciadas por una fórmula en Excel. Por favor, sigue los siguientes dos métodos para lograrlo.

Resaltar todas las celdas referenciadas por una fórmula con la tecla de acceso rápido
Resaltar todas las celdas referenciadas por una fórmula con código VBA

Resaltar todas las celdas referenciadas por una fórmula con la tecla de acceso rápido

Puedes usar una tecla de acceso rápido para seleccionar todas las celdas referenciadas por una fórmula y luego aplicar manualmente un color de relleno a ellas.

1. Supongamos que E1 es una celda con fórmula, y necesitas resaltar todas las celdas que son referenciadas por ella. Por favor, selecciona la celda con fórmula E1, luego presiona simultáneamente las teclas Ctrl + [ (corchete abierto).

2. Ahora se han seleccionado las celdas que son referenciadas por esta fórmula; por favor, especifica un color de relleno para resaltarlas. Ver captura de pantalla:

Resaltar todas las celdas referenciadas por una fórmula con código VBA

También puedes ejecutar código VBA para resaltar todas las celdas referenciadas por una fórmula en Excel.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Resalta todas las celdas referenciadas por una fórmula en Excel

Sub HighlightCellsReferenced()
    Dim rowCnt As Integer
    Dim i As Integer, j As Integer, strleng As Integer
    Dim strTxt As String, strFml As String
    Dim columnStr, cellsAddress As String
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
    Title:="Kutools For Excel", Type:=8)
    
    strTxt = ""
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If yRg.Value <> "" Then
            strFml = yRg.Formula + " "
            strFml = Replace(strFml, "(", " ")
            strFml = Replace(strFml, ")", " ")
            strFml = Replace(strFml, "-", " ")
            strFml = Replace(strFml, "+", " ")
            strFml = Replace(strFml, "*", " ")
            strFml = Replace(strFml, "/", " ")
            strFml = Replace(strFml, "=", " ")
            strFml = Replace(strFml, ",", " ")
            strFml = Replace(strFml, ":", " ")
              
            For j = 1 To Len(strFml)
                If Mid(strFml, j, 1) <> " " Then
                    cellsAddress = cellsAddress + Mid(strFml, j, 1)
                Else
                    On Error Resume Next
                    Range(cellsAddress).Interior.ColorIndex = 3
                    cellsAddress = ""
                End If
            Next
        End If
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Presiona la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente de Kutools para Excel, selecciona una celda con fórmula o varias celdas con fórmulas en las que necesitas resaltar las celdas referenciadas y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Ahora, todas las celdas referenciadas basadas en la(s) celda(s) con fórmula seleccionada(s) se resaltan en rojo inmediatamente, como se muestra en la siguiente captura de pantalla.

Artículos relacionados:

• ¿Cómo mantener la referencia de celda de fórmula constante en Excel?
• ¿Cómo hacer referencia al nombre de la pestaña en una celda en Excel?