¿Cómo encontrar todos los textos subrayados en un rango o en toda la hoja de cálculo de Excel?
Supongamos que tiene un rango de datos en una hoja de cálculo y que algunos de esos elementos están subrayados. ¿Cómo puede identificarlos rápidamente? A continuación, le presentamos algunos trucos prácticos para localizar de forma ágil los textos subrayados, ya sea dentro de un rango específico o en toda la hoja de cálculo en Excel.
Buscar todos los textos subrayados en una hoja de cálculo con VBA
Buscar todos los textos subrayados en un rango o en una hoja de cálculo con Kutools para Excel 
Buscar todos los textos subrayados en una hoja de cálculo con VBA
En Excel, no puede usar la función Ir a especial para buscar textos subrayados, por lo que le ofrecemos un código VBA que le permitirá localizar todos los textos subrayados en una hoja de cálculo.
1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y haga clic en Insertar > Módulo.
2. En la ventana emergente del Módulo, pegue el siguiente código VBA.
VBA: Busca 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 Sub3. Haga clic en el botón Ejecutar o pulse la tecla F5. Aparecerá un cuadro de diálogo para seleccionar un rango en el que buscar textos subrayados.
4. Haga clic en Aceptar; a continuación, aparecerá un cuadro de diálogo que indica qué celdas contienen texto con subrayado simple y cuáles con subrayado doble.
Si solo desea buscar un tipo específico de texto subrayado dentro de un rango determinado, este código VBA no le servirá; sin embargo, puede usar la útil herramienta que se describe a continuación para llevar a cabo esta tarea.
Buscar todos los textos subrayados en un rango o en una hoja de cálculo con Kutools para Excel
Si tiene instalado Kutools para Excel, puede utilizar la herramienta Seleccionar celdas con formato similar para localizar rápidamente los textos subrayados en un rango o en toda la hoja de cálculo.
Tras instalar gratuitamente Kutools para Excel, siga los pasos siguientes:
1. Seleccione una celda vacía, introduzca cualquier dato en ella (por ejemplo, en A1) y haga clic en Inicio > Subrayado y elija el tipo de subrayado que necesite. Vea la captura de pantalla:
2. A continuación, seleccione el rango en el que desea buscar textos subrayados específicos y haga clic en Kutools > Seleccionar > Seleccionar celdas con formato similar. Vea la captura de pantalla:
3. En el cuadro de diálogo Seleccionar celdas con formato similar, haga clic en Seleccionar formato desde celda para seleccionar la celda que aplicó con subrayado en el paso 1. Vea la captura de pantalla:
4. Haga clic en Aceptar y, en el cuadro de diálogo Seleccionar celdas con formato similar, active únicamente la casilla Subrayado. Vea la captura de pantalla:
5. Haga clic en Aceptar; a continuación, aparecerá un cuadro de diálogo indicándole cuántos textos subrayados se han seleccionado. Haga clic en Sí para cerrarlo.
Ahora se han seleccionado todos los textos subrayados.
Consejos:
1. Si desea encontrar todos los textos subrayados en toda la hoja de cálculo, haga clic en la esquina superior izquierda de la hoja para seleccionarla por completo y, a continuación, aplique la utilidad Seleccionar celdas con formato similar.
2. Active la casilla Ignorar celdas vacías en el cuadro de diálogo Seleccionar celdas con formato similar, y así se incluirán incluso las celdas vacías que tengan formato de subrayado.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos