Apagar links de todas as linhas do Excel

Question

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.

Answer 1

Experimente esta macro

        

Sub RemoveHiperlinks()

ActiveSheet.Hyperlinks.Delete

End Sub

---

Click em propor como resposta se foi util a voce. [e-mail]

Answer 2

Já tentei mas nada acontece.

Answer 3

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.

Answer 4

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. [e-mail]