Como converter html em texto em células no Excel?
Conforme a captura de tela mostrada abaixo, se houver números de tags html existentes nas células da planilha, como você poderia convertê-los em texto simples no Excel? Este artigo mostrará dois métodos para remover todas as marcas html de células no Excel.
Converta html em texto em células selecionadas com a função Localizar e Substituir
Converta html em texto em toda a planilha com VBA
Converta html em texto em células com a função Localizar e Substituir
Você pode converter todos os html em textos em células com o Localizar e substituir função no Excel. Faça o seguinte.
1. Selecione as células para as quais você converterá todos os html em textos e pressione o botão Ctrl + F chaves para abrir o Localizar e substituir caixa de diálogo.
2. No Localizar e substituir caixa de diálogo, vá para o Substituir guia, digite <*> no Encontre o que caixa, mantenha o substituir por caixa vazia e clique no substituir tudo botão. Veja a imagem:
3. Então um Microsoft Excel caixa de diálogo aparece para dizer quantas tags html foram substituídas, clique no OK botão e feche o Localizar e substituir caixa de diálogo.
Em seguida, você pode ver que todas as tags html foram removidas das células selecionadas, conforme a imagem abaixo mostrada.
Converta html em texto em toda a planilha com VBA
Além disso, você pode converter todo html em texto em toda a planilha ao mesmo tempo com o código VBA abaixo.
1. Abra a planilha que contém html que você converterá em texto e pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Móduloe copie o código VBA abaixo para a janela Módulo.
Código VBA: converta html em texto em toda a planilha
Sub RemoveHTMLTags()
'Update by Extendoffice 20180703
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
Dim xRegEx As RegExp
Dim xMatch As Match
Dim xMatches As MatchCollection
Set xRegEx = New RegExp
Application.EnableEvents = False
Set xRg = Cells.SpecialCells(xlCellTypeConstants)
With xRegEx
.Global = True
.Pattern = "<(""[^""]*""|'[^']*'|[^'"">])*>"
End With
For Each xCell In xRg
xStr = xCell.Value
Set xMatches = xRegEx.Execute(xCell.Text)
For Each xMatch In xMatches
xStr = Replace(xStr, xMatch.Value, "")
Next
xCell.Value = xStr
Next
Application.EnableEvents = True
End Sub3. Ainda no Microsoft Visual Basic para Aplicações janela, por favor clique Ferramentas > Referências, Verifica a Expressão regular 5.5 do Microsoft VBScript opção no Referências-VBAProject caixa de diálogo e, em seguida, clique no OK botão.
4. aperte o F5 ou clique no botão Executar para executar o código.
Em seguida, todas as tags html são removidas de toda a planilha imediatamente.
Artigos relacionados:
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!
