Como extrair endereços da web no excel?

Suponha que você receba uma pasta de trabalho do Excel de seu colega na qual você tem uma lista de hiperlinks em uma coluna. Agora, desta lista, você deseja extrair todos os URLs do hiperlink.

O método manual é uma verdadeira dor de cabeça, você tem que copiar e colar cada URL um por um. Então a melhor forma é criar uma UDF em VBA . E hoje gostaria de compartilhar com vocês um código simples para esta UDF.

Código VBA para extrair URLs de hiperlink

 Function GiveMeURL(rng As Range) As String On Error Resume Next GiveMeURL = rng.Hyperlinks(1).Address End Function

Como usar este código

Para usar esta UDF, você deve seguir estas etapas:

1. Abra o Editor do Visual Basic na guia Desenvolvedor ou use o atalho de teclado ALT+F11.
2. Insira um novo módulo, cole o código acima nele e feche-o.
3. Agora, em sua planilha, insira a função =GiveMeURL(A1) e pressione Enter.