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?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!
