¿Cómo encontrar todos los textos subrayados en un rango u hoja de cálculo completa en Excel?

Supongamos que tienes un rango de datos en una hoja de cálculo, y algunos de esos datos están subrayados, y ahora quieres identificar esos datos subrayados, ¿cómo puedes encontrarlos rápidamente? Aquí te presento algunos trucos para que puedas encontrar rápidamente los textos subrayados en un rango o en toda la hoja de cálculo en Excel.

Encuentra todos los textos subrayados en una hoja de cálculo con VBA

Encuentra todos los textos subrayados en un rango u hoja de cálculo con Kutools para Excel

Encuentra todos los textos subrayados en una hoja de cálculo con VBA

En Excel, no puedes usar la función Ir a Especial para encontrar textos subrayados, por lo que te presento un código VBA para ayudarte a encontrar todos los textos subrayados en una hoja de cálculo.

1. Presiona las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones, y haz clic en Insertar > Módulo.

2. En la ventana Módulo emergente, pega el siguiente código VBA.

VBA: Encuentra todo el texto subrayado en una hoja de cálculo.

Sub SearchForUnderline()
'Updateby20150910
    Dim Rg As Range, Rg1 As Range
    Dim I As Long
    Dim xAddress As String, xAddress1 As String, xAddress2 As String
    Dim Result As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Rg.SpecialCells(xlCellTypeConstants)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
                If xAddress1 = "" Then
                    xAddress1 = Rg1.Address
                Else
                    xAddress1 = xAddress1 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
                If xAddress2 = "" Then
                    xAddress2 = Rg1.Address
                Else
                    xAddress2 = xAddress2 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
    Next
    If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
    If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
    If Result <> "" Then MsgBox Result
End Sub

3. Haz clic en el botón Ejecutar o presiona la tecla F5. Aparecerá un cuadro de diálogo para seleccionar un rango donde buscar textos subrayados.

4. Haz clic en Aceptar, luego aparecerá un cuadro de diálogo indicándote qué celdas contienen texto subrayado simple y cuáles contienen texto subrayado doble.

Si solo deseas encontrar un tipo específico de texto subrayado en un rango determinado, este código VBA no puede ayudarte, pero puedes usar la siguiente herramienta práctica para resolver esta tarea en este caso.

Encuentra todos los textos subrayados en un rango u hoja de cálculo con Kutools para Excel

Si tienes instalado Kutools para Excel, puedes aplicar la utilidad Seleccionar Celdas con Formato para encontrar rápidamente los textos subrayados en un rango o en toda la hoja de cálculo.

Después de instalar gratuitamente Kutools para Excel, por favor sigue los siguientes pasos:

1. Selecciona una celda en blanco, y luego escribe un dato en ella, por ejemplo, A1, y haz clic en Inicio > Subrayado, y selecciona el tipo de subrayado que necesitas. Ver captura de pantalla:

2. Luego selecciona el rango donde deseas encontrar los textos subrayados específicos, y haz clic en Kutools > Seleccionar > Seleccionar Celdas con Formato. Ver captura de pantalla:

3. Y en el cuadro de diálogo Seleccionar Celdas con Formato, haz clic en Seleccionar Formato desde Celda para seleccionar la celda que formateaste con subrayado en el paso 1. Ver captura de pantalla:

4. Haz clic en Aceptar, y en el cuadro de diálogo Seleccionar Celdas con Formato, marca solo Subrayado. Ver captura de pantalla:

5. Haz clic en Aceptar, luego aparecerá un cuadro de diálogo indicando cuántos textos subrayados se han seleccionado, haz clic en Sí para cerrarlo.

Ahora todos los textos subrayados están seleccionados.

Consejos:

1. Si deseas encontrar todos los textos subrayados en una hoja de cálculo completa, haz clic en la esquina superior izquierda de la hoja de cálculo para seleccionar toda la hoja, y luego aplica la utilidad Seleccionar Celdas con Formato.

2. Marca Ignorar celdas vacías en el cuadro de diálogo Seleccionar Celdas con Formato; ignorará las celdas vacías incluso si están formateadas con subrayado.