¿Cómo convertir múltiples direcciones de correo electrónico en hipervínculos en Excel? 

Si tienes una lista de direcciones de correo electrónico en texto plano en Excel y deseas convertirlas en hipervínculos clicables para enviar correos electrónicos, hacerlo manualmente para múltiples entradas puede ser muy laborioso. Esta guía demuestra dos métodos eficientes: usar la fórmula HIPERVÍNCULO o una macro VBA.

Convertir múltiples direcciones de correo electrónico en hipervínculos con Fórmula

Convertir múltiples direcciones de correo electrónico en hipervínculos con código VBA

Convertir múltiples direcciones de correo electrónico en hipervínculos con Fórmula

Con la función Hipervínculo, puedes convertir rápidamente las direcciones de correo electrónico de una columna en direcciones vinculadas de forma simultánea.

1. Introduce esta fórmula =hipervínculo("mailto:"&A2) en una celda en blanco donde quieras colocar el resultado, como se muestra en la siguiente captura de pantalla:

2. Luego arrastra el controlador de relleno hacia abajo a las celdas donde quieres que aparezca esta fórmula, y todas las direcciones de correo electrónico se habrán convertido en hipervínculos clicables, como se muestra en la siguiente captura de pantalla:

Convertir múltiples direcciones de correo electrónico en hipervínculos con código VBA

Como puedes ver, al usar la fórmula anterior, se añadirá la cadena “mailto:” delante de cada dirección de correo electrónico. Si no deseas que aparezca "mailto:" en las direcciones, el siguiente código VBA puede ayudarte.

1. Mantén presionadas las teclas Alt + F11 en Excel, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

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

Código VBA: Convertir múltiples direcciones de correo electrónico en hipervínculos

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Después de pegar el código, presiona la tecla F5 para ejecutarlo. Aparecerá un cuadro de diálogo solicitándote que selecciones el rango de datos a procesar, como se muestra en la siguiente captura de pantalla:

4. Luego haz clic en Aceptar, y todas las direcciones de correo electrónico seleccionadas se habrán convertido en direcciones vinculadas, como se muestra en la siguiente captura de pantalla: