¿Cómo convertir varias direcciones de correo electrónico en hipervínculos en Excel?
Si tiene una lista de direcciones de correo electrónico de texto sin formato en una hoja de trabajo, y ahora, desea convertir estas direcciones de correo electrónico en hipervínculos que puede enviar correos electrónicos mientras hace clic en las direcciones. Por supuesto, puede convertirlos a direcciones de correo electrónico con hipervínculos, pero este método será aburrido si hay que convertir varias direcciones. En este artículo, hablaré de algunos buenos trucos para afrontar esta tarea.
Convierta varias direcciones de correo electrónico en hipervínculos con Formula
Convierta varias direcciones de correo electrónico en hipervínculos con código VBA
Convierta varias direcciones de correo electrónico en hipervínculos con Formula
Con la hiperenlace función, puede convertir rápidamente las direcciones de correo electrónico de la columna a direcciones con hipervínculos a la vez.
1. Ingrese esta fórmula = hipervínculo ("mailto:" & A2) en una celda en blanco donde desea poner el resultado, vea la captura de pantalla:
2. Luego arrastre el controlador de relleno hacia las celdas que desea que contengan esta fórmula, y todas las direcciones de correo electrónico se han convertido en hipervínculos en los que se puede hacer clic, como se muestra en la siguiente captura de pantalla:
Convierta varias direcciones de correo electrónico en hipervínculos con código VBA
Como puede ver, al usar la fórmula anterior, se agregará una cadena "mailto:" delante de cada dirección de correo electrónico, si no desea el mailto: dentro de las direcciones, el siguiente código VBA puede hacerle un favor.
1. Mantenga pulsado el Alt + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.
Código VBA: convierta varias 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, presione F5 a este código, y aparecerá un cuadro emergente para recordarle que seleccione el rango de datos que desea usar, vea la captura de pantalla:
4. Y luego haz clic OK, todas las direcciones de correo electrónico seleccionadas se han convertido a las direcciones con hipervínculos, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!