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 RangeDim WorkRng As Range' Selecione o intervalo de células contendo os hiperlinksOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Selecione o intervalo", xTitleId, WorkRng.Address, Type:=8)' Itera sobre cada célula do intervalo selecionadoFor Each Rng In WorkRngIf Rng.Hyperlinks.Count > 0 ThenRng.Value = Rng.Hyperlinks.Item(1).AddressEnd IfNextEnd SubFunction PegarURL(pWorkRng As Range) As String' Função auxiliar para obter o URL de um hiperlinkPegarURL = pWorkRng.Hyperlinks(1).AddressEnd 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.
0 Comentários