Note: The other languages of the website are Google-translated. Back to English

Como copiar hiperlink apenas de uma célula para outra no Excel?

Supondo que eu tenha uma lista de valores na coluna A e cada célula contém um hiperlink diferente, agora, quero copiar apenas os hiperlinks sem texto para outra coluna E como mostrado a seguir captura de tela. Pode ser que não haja uma maneira direta de resolver esse trabalho no Excel, mas aqui posso apresentar um código VBA para lidar com ele.

doc copiar hiperlink para outra célula 1

Copie o hiperlink de uma célula para outra com o código VBA


seta azul bolha direita Copie o hiperlink de uma célula para outra com o código VBA

Para copiar apenas os endereços de hiperlink sem o texto para outras células, o código a seguir pode fazer um favor, como este:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: copie o hiperlink apenas de uma célula para outra:

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3. E, em seguida, pressione F5 para executar este código, uma caixa de diálogo aparecerá para lembrá-lo de selecionar as células para as quais deseja copiar apenas os hiperlinks, veja a imagem:

doc copiar hiperlink para outra célula 02

4. E, em seguida, clique em OKe selecione as células nas quais deseja colar os hiperlins apenas em outra caixa de diálogo, consulte a captura de tela:

doc copiar hiperlink para outra célula 03

5. E os endereços de hiperlink foram copiados das células originais para as células especificadas conforme necessário, consulte a captura de tela:

doc copiar hiperlink para outra célula 04

Nota: Este código também pode ajudá-lo a copiar os hiperlinks de uma planilha para outra como desejar.


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório

 

Comentários (13)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Oi, e se eu quiser copiar meu hiperlink da célula A5 da planilha A para a célula A5 da planilha B?
Este comentário foi feito pelo moderador no site
Olá, Arpit:

Atualizei o código VBA, agora, você pode aplicá-lo em duas planilhas conforme a necessidade. Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Eu quero copiar links em várias folhas de um arquivo para outro arquivo
Este comentário foi feito pelo moderador no site
Olá.. e se eu quiser copiar o hiperlink através do vlookup? eu já tenho a fórmula, mas quando clico no hiperlink, "não é possível abrir o arquivo especificado" aparecerá.

por favor me ajude
Este comentário foi feito pelo moderador no site
Não funciona.
Este comentário foi feito pelo moderador no site
Adoro. Muito obrigadooooo.
Amor da República Dominicana :)
Este comentário foi feito pelo moderador no site
Não funciona.
Este comentário foi feito pelo moderador no site
Digamos que na sua célula A1 seja um hiperlink, então para obter o caminho do hiperlink basta criar uma fórmula como abaixo:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
Este comentário foi feito pelo moderador no site
Isso também não funcionou para mim.
Este comentário foi feito pelo moderador no site
Isso é incrível e funciona. Adoro copiar e colar o código de outras pessoas :D
Este comentário foi feito pelo moderador no site
Não funciona para mim; o fato de eu ainda estar usando o Excel 2007 importa?
Este comentário foi feito pelo moderador no site
OK, então você não vai publicar meu comentário - o que é justo. Mas se você quiser que eu me registre e faça login, então você precisa me mostrar soluções que funcionem, porque (com base em uma instância que não funciona) não vi nada que me persuadisse de que há algum valor em se registrar.
Este comentário foi feito pelo moderador no site
Fiz as seguintes edições para funcionar no meu caso de uso:
Sub CopiarHyperlinks()
'Uodateby Extendoffice
Dim xSRg como intervalo
Dim xDRg como intervalo
Dim I como inteiro
Dim xAddress como String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Por favor, selecione o intervalo original que você deseja copiar hiperlinks:", "KuTools For Excel", xAddress, , , , , 8)
Se xSRg não for nada, saia do sub
Set xDRg = Application.InputBox("Por favor, selecione o novo intervalo que deseja colar apenas os hiperlinks", "KuTools For Excel", , , , , , 8)
Se xDRg não for nada, saia do sub
Definir xDRg = xDRg(1)
Para I = 1 Para xSRg.Count
Se xSRg(I).Hyperlinks(1).Address <> "" Ou xSRg(I).Hyperlinks(1).SubAddress <> "" Então
Se xSRg(I).Hyperlinks.Count = 1 Então
xDRg(I).Hyperlinks.Adicionar âncora:=xDRg(I), _
Endereço:=xSRg(I).Hyperlinks(1).Endereço, _
Subendereço:=xSRg(I).Hyperlinks(1).Subendereço
'ScreenTip:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
Se acabar
Se acabar
Seguinte
End Sub
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL