none
Apagar links de todas as linhas do Excel RRS feed

  • Pergunta

  • Prezados,estou com um problema.

    Para cada linha da minha planilha,tenho um link diferente: https://t.co/BnwJqX1xil, https://t.co/0iJjuia653, https://t.co/w7ycT28tbX.

    Como faço para remover todos de uma vez?

    Obrigada.

    segunda-feira, 9 de abril de 2018 19:45

Todas as Respostas

  • Experimente esta macro

            

    Sub RemoveHiperlinks()

    ActiveSheet.Hyperlinks.Delete

    End Sub

    Click em propor como resposta se foi util a voce. ricardodm@outlook.com.br

    segunda-feira, 9 de abril de 2018 20:05
  • Já tentei mas nada acontece.

    segunda-feira, 9 de abril de 2018 21:25
  • Obs:.Não pretendo apenas retirar a função de clique,e sim excluir.

    Não consigo apagar toda a coluna visto que os links estão misturados no texto.

    segunda-feira, 9 de abril de 2018 22:44
  • Selecione a coluna que deseja remover os links

    Os dados da celulas que contem o o link também serão removidos

    Sub RemoveHiperlinks()
        Dim r As Range
        
        For Each r In Selection
            If r.Hyperlinks.Count > 0 Then
                
                For Each rLink In r.Hyperlinks
                    rLink.TextToDisplay = VBA.Replace(rLink.Address, "mailto:", "")
                Next HLink
                r.Hyperlinks.Delete
                r.ClearContents ' limpa todos dados da celula
            End If
            
        Next
    End Sub

    Click em propor como resposta se foi util a voce. ricardodm@outlook.com.br

    terça-feira, 10 de abril de 2018 19:17