Resposta curta: você não pode automatizar isso sem o VBA.
Manual
Isso está em um computador com Windows 7; basta substituir os atalhos pelos correspondentes Mac correspondentes.
- Realce uma célula com um hiperlink.
- Pressione CTRL + K . Isso abre a caixa de diálogo do hiperlink (veja a imagem abaixo). Uma vez aberto, você verá que seu cursor já está no campo Endereço.
- Pressione CTRL + A para realçar o URL inteiro.
- Pressione CTRL + C para copiá-lo.
- Pressione ESC ou Digite para fechar a caixa de diálogo Hiperlink.
- Cole o URL em algum lugar através de CTRL + V .
VBA
AquiestáumasoluçãodoVBAparaquempodeusá-lo.
CrieummóduloVBAcomoseguintecódigo:
PublicFunctionGetURL(cAsRange)AsStringOnErrorResumeNextGetURL=c.Hyperlinks(1).AddressEndFunction
Parausar,insiraoseguinteemqualquercélula:
=GetURL(A1)
emqueA1contémumhiperlink.
Afunçãonotrabalho: