1
Pulse " Alt " y "F11 " al mismo tiempo . . Seleccione " Módulo " en el menú " Insertar" para abrir un cuadro de diálogo
2
Pega el siguiente código en la ventana :
Función GetAddress ( HyperlinkCell como gama )
GetAddress = Sustituir _
( HyperlinkCell.Hyperlinks ( 1 ) Dirección : " mailto : " . , "")
End Function
3 < p > Comunicado " Alt" y " Q " al mismo tiempo para salvar a la función.
4
Haga clic en cualquier celda en la que desea extraer un hipervínculo.
5
Escriba el código siguiente , reemplazando "XX " con la celda ocupada por un hipervínculo:
= GetAddress (XX )