Envío múltiple de mailto: enlaces en una hoja de cálculo de Excel

Tengo una hoja de cálculo de Excel que tiene una lista de mailto:hipervínculos en una de las columnas.
Me gustaría poder enviar un correo electrónico a una selección de ellos, pero hacer clic en uno, incluso como parte de una selección, solo envía ese enlace al programa de correo, y al intentar copiarlos solo se copia el texto de la pantalla. parece que no hay forma de copiar el enlace subyacente.

Tampoco puedo encontrar una manera de acceder al enlace subyacente desde una fórmula en otra celda para concatenar los diferentes grupos lógicos de personas en enlaces únicos que contienen todas sus direcciones.

Busqué en Google y encontré muchas soluciones para enlaces con varias direcciones en ellas, pero ninguna que toma un conjunto de enlaces, cada uno de los cuales contiene una sola dirección como punto de partida.

¿Alguien sabe cómo hacerlo?

Tendremos que usar un poco de VBA aquí, pero no nos preocupemos, ¡es agradable y fácil!

Presione Alt+ F11. Esto abrirá el Editor de Visual Basic. Desde la barra de menú superior, haga clic en Insertar y luego en Módulo . Pegue el siguiente código en la ventana que aparece a la derecha:

Function GetEmailAddress(EmailCell As Range) As String
   GetEmailAddress = Replace(EmailCell.Hyperlinks(1).Address, "mailto:", "")
End Function

Puede cerrar esta ventana ahora y volver a su hoja de cálculo.

Agregue una columna a la derecha de su lista de nombres que contienen enlaces. Vamos a almacenar nuestras direcciones de correo electrónico aquí. Ingrese esta fórmula y copie:

=GetEmailAddress(A2)

Concatene las direcciones de correo electrónico que le interesan en otra celda e hipervínculo el resultado:

=HYPERLINK("mailto:"&A2&","&A3&","&A4&","&A5,"email people")

Esto produce un enlace que dice email peoplecomo se muestra en la celda D4 en la captura de pantalla. Cuando hace clic en el enlace, envía la lista de direcciones a su cliente de correo electrónico.

Nota : como hemos agregado un código VBA, necesitaremos guardar el archivo como un archivo .xls o .xlsm.

Dado que la respuesta aceptada implica hacer una columna adicional, y en realidad no estoy demasiado preocupado por tener un hipervínculo final, estoy bastante contento con solo copiar y pegar una cadena al programa de correo electrónico, he adaptado la respuesta aceptada con esto función. Puede ser útil para alguien que hace algo similar y no funcionó como un comentario.

Function GetEmailAddress(EmailCell As Range) As String

    Dim addressList As String
    Dim sep As String

    For Each c In EmailCell.Cells
        addressList = addressList & sep & Replace(c.Hyperlinks(1).Address, "mailto:", "")
        sep = ","
    Next

   GetEmailAddress = addressList

End Function