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.

https://cdn.extendoffice.com/images/stories/doc-excel/extract-hyperlinks/doc-extract-hyperlinks1-1.png

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.