Como remover hiperlinks sem remover a formatação?

No Excel, ao excluirmos os hiperlinks que possuem alguma formatação, como cor de fundo, fonte, tamanho e assim por diante, a formatação será removida assim como a captura de tela a seguir mostrada. Mas, às vezes, precisamos manter a formatação da célula ao remover os hiperlinks. Existe alguma maneira de nos ajudar a resolver esse problema chato?

Remova hiperlinks sem remover a formatação com código VBA

Remova hiperlinks sem remover a formatação com código VBA

No Excel, não há uma maneira direta de lidar com essa tarefa, mas você pode aplicar o seguinte código VBA para preservar a formatação da célula ao remover hiperlinks.

1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.

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

Código VBA: remova hiperlinks sem remover a formatação

Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
    Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
    Set Rng = xLink.Range
    Rng.Copy TempRng
    Rng.ClearHyperlinks
    Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
    TempRng.Copy
    Rng.PasteSpecial xlPasteFormats
    TempRng.Clear
Next
End Sub

3. Então aperte F5 para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de selecionar as células que contêm os hiperlinks, veja a captura de tela:

4. E, em seguida, clique em OK para fechar a caixa de diálogo, os hiperlinks são removidos, mas a formatação dos hiperlinks (incluindo os sublinhados) é mantida.

Artigos relacionados:

Como alterar vários caminhos de hiperlink de uma vez no Excel?

Como extrair endereços reais de hiperlinks no Excel?