VBA - Excel - Extrair HIPERLINK de uma grande quantidade de células

Precisa extrair, uma quantidade significativa de hiperlinks, de uma coluna sem fim.

Como Extrair Hiperlinks de uma Grande Quantidade de Células no Excel de Forma Rápida e Eficiente

Você já se deparou com a tarefa de extrair um grande número de hiperlinks de células no Excel e pensou que seria uma tarefa demorada e tediosa? Não se preocupe, temos uma solução eficiente para você! Neste guia, vamos mostrar como extrair hiperlinks de várias células de uma só vez utilizando o VBA.

Passo a Passo:

1. Abra o Excel e pressione "ALT" + "F11" para acessar o ambiente de desenvolvimento VBA.

2. Crie um novo módulo clicando com o botão direito sobre "Inserir" > "Módulo".

3. Cole o seguinte código no módulo recém-criado:

Sub ExtrairHiperlinks()

    Dim Rng As Range

    Dim WorkRng As Range

    

    ' Selecione o intervalo de células contendo os hiperlinks

    On Error Resume Next

    xTitleId = "KutoolsforExcel"

    Set WorkRng = Application.Selection

    Set WorkRng = Application.InputBox("Selecione o intervalo", xTitleId, WorkRng.Address, Type:=8)

    

    ' Itera sobre cada célula do intervalo selecionado

    For Each Rng In WorkRng

        If Rng.Hyperlinks.Count > 0 Then

            Rng.Value = Rng.Hyperlinks.Item(1).Address

        End If

    Next

End Sub

Function PegarURL(pWorkRng As Range) As String

    ' Função auxiliar para obter o URL de um hiperlink

    PegarURL = pWorkRng.Hyperlinks(1).Address

End Function

4. Volte para a planilha e selecione a coluna que contém os hiperlinks que você deseja extrair.

5. Pressione "ALT" + "F8" para abrir a caixa de diálogo "Macro". Selecione "ExtrairHiperlinks" na lista e clique em "Executar".

6. Os URLs dos hiperlinks serão extraídos e inseridos na mesma coluna.

7. Para obter os URLs em células diferentes, insira a fórmula `=PegarURL(A2)` na célula onde "A2" representa a célula com o hiperlink a ser extraído. Arraste a fórmula até o final da coluna para extrair todos os URLs.

Com esses passos, você pode rapidamente extrair hiperlinks de uma grande quantidade de células no Excel. Isso economizará seu tempo e esforço, permitindo que você concentre sua atenção em outras tarefas importantes. Lembre-se de sempre fazer uma cópia de backup do seu arquivo antes de realizar qualquer operação que envolva VBA, para evitar perda de dados acidental.