¿Tiene una hoja de trabajo que tiene un montón de direcciones de correo electrónico, como una serie de hipervínculos? Si es así, puede estar interesado en una forma de extraer esas direcciones y ponerlas en celdas como texto sin formato. Hay varias formas de realizar esta tarea.

El primer método es recordar que los hipervínculos para direcciones de correo electrónico comienzan con el texto «mailto» seguido de dos puntos. Por lo tanto, puede utilizar una fórmula que elimine la primera parte del hipervínculo. Por ejemplo, si el hipervínculo del correo electrónico está en la celda A1, puede usar esta fórmula:

=RIGHT(A1,LEN(A1)-7)

Esto verifica la longitud del contenido de la celda y luego lo extrae todo excepto los primeros siete caracteres, que es la parte «mailto:». También puede usar una fórmula que se base en la función SUSTITUIR:

=SUBSTITUTE(A1,"mailto:","")

Si lo prefiere, puede utilizar una macro para realizar la conversión de un hipervínculo a una dirección de correo electrónico de solo texto. La siguiente macro de una sola línea es una función definida por el usuario que devuelve el hipervínculo convertido:

Function ExtractEmailAddress(rCell As Range)

ExtractEmailAddress = _       Mid(rCell.Hyperlinks(1).Address, 8)

End Function

Para usar la macro, todo lo que necesita hacer es usar la función en alguna celda de su hoja de trabajo, de esta manera:

=ExtractEmailAddress(A1)

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2897) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Extracting_E-mail_Addresses_from_Hyperlinks [Extracción de direcciones de correo electrónico de hipervínculos].