¿Cómo convertir un conjunto de direcciones URL de texto en hipervínculos activos en Excel?

Si tienes una lista de direcciones URL que son texto sin formato, ¿cómo podrías activar estas URLs de texto para convertirlas en hipervínculos clicables como se muestra en la siguiente captura de pantalla?

Convertir un conjunto de direcciones URL de texto en hipervínculos activos con fórmulas

Convertir un conjunto de direcciones URL de texto en hipervínculos activos Kutools para Excel

Convertir un conjunto de direcciones URL de texto en hipervínculos activos con código VBA

Convertir un conjunto de direcciones URL de texto en hipervínculos activos con fórmulas

Hacer doble clic en cada celda para activar los hipervínculos uno por uno llevará mucho tiempo. Aquí te presento algunas fórmulas que puedes usar siguiendo estos pasos:

Introduce esta fórmula: =HYPERLINK(A2, A2) en una celda en blanco donde deseas obtener el resultado, y luego arrastra el controlador de relleno hacia abajo para aplicar esta fórmula a las celdas que desees, y todas las direcciones URL de texto se habrán convertido en hipervínculos activos, como se muestra en la captura de pantalla:

Convertir un conjunto de direcciones URL de texto en hipervínculos activos Kutools para Excel

Aquí hay una herramienta práctica: Kutools para Excel, con su función Convertir hipervínculos, puedes rápidamente tanto convertir un conjunto de direcciones URL de texto en hipervínculos clicables como extraer direcciones de hipervínculo reales desde cadenas de texto de hipervínculos.

Después de instalar Kutools para Excel, sigue estos pasos:

1. Selecciona las celdas que contienen las direcciones URL de texto que deseas activar.

2. Luego haz clic en Kutools > Vínculo > Convertir hipervínculos, como se muestra en la siguiente captura de pantalla:

3. En el cuadro de diálogo Convertir hipervínculos, selecciona la opción Contenido de celda reemplaza direcciones de hipervínculos bajo la sección Tipo de conversión, y luego marca Convertir rango de origen si deseas colocar las direcciones reales en el rango original, como se muestra en la captura de pantalla:

4. Luego haz clic en el botón Aceptar, y las direcciones URL de texto se activarán de inmediato, como se muestra en la captura de pantalla:

Nota: Si deseas colocar el resultado en otra celda en lugar de en la celda original, desmarca la opción Convertir rango de origen, y selecciona una celda donde necesitas obtener el resultado del Rango de resultados como se muestra en la siguiente captura de pantalla:

¡Haz clic para descargar Kutools para Excel y prueba gratuita ahora!

Convertir un conjunto de direcciones URL de texto en hipervínculos activos con código VBA

El siguiente código VBA también puede ayudarte a resolver esta tarea, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Código VBA: Convertir un conjunto de direcciones URL de texto en hipervínculos activos:

Sub activateHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de mensaje para recordarte que selecciones las celdas que deseas convertir en hipervínculos clicables, como se muestra en la captura de pantalla:

4. Luego haz clic en el botón Aceptar, y las direcciones URL de texto plano se habrán convertido en hipervínculos activos, como se muestra en la captura de pantalla: