Remover ou retirar tags HTML de strings de texto

Se houver várias strings de texto cercadas por tags HTML, para remover todas as tags HTML, os métodos neste artigo podem ser úteis.

• Remover ou retirar todas as tags HTML simples com fórmula
• Remover ou retirar algumas tags HTML complexas com código VBA

Remover ou retirar todas as tags HTML simples com fórmula

Se suas strings de texto estiverem cercadas por algumas tags HTML simples, a função MID no Excel pode ajudá-lo a resolver este problema. A sintaxe genérica é:

• string: a string de texto ou valor da célula da qual você deseja remover as tags HTML.
• text_start: o número da posição em que o primeiro caractere está localizado e que você deseja usar.
• tag_len: o comprimento das tags HTML dentro da string de texto.

Por favor, copie ou insira a seguinte fórmula em uma célula em branco:

Em seguida, arraste a alça de preenchimento para baixo até as células onde deseja aplicar esta fórmula, e todas as tags HTML serão removidas das células, conforme mostrado na captura de tela abaixo:

Explicação da fórmula:

LEN(A2)-7: Esta função LEN é usada para calcular o comprimento da string de texto na célula A2 e subtrai 7 (o número das tags HTML, tanto as tags de início quanto as de fim), o que significa obter o número de caracteres que você deseja extrair, excluindo a tag HTML. O valor retornado será usado como o argumento num_chars dentro da função MID.

MID(A2,4,LEN(A2)-7): Esta função MID é usada para extrair todos os caracteres que começam no quarto caractere, e o comprimento da string é o num-chars retornado pela função LEN.

Remover ou retirar algumas tags HTML complexas com código VBA

Se houver várias tags HTML dentro da string de texto, conforme mostrado na captura de tela abaixo, a fórmula acima pode não funcionar corretamente; neste caso, o seguinte código VBA pode ajudá-lo a lidar com algumas tags HTML complexas em strings de texto.

1. Mantenha pressionadas as teclas Alt + F11 no Excel, e isso abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código VBA na Janela do Módulo.

Sub RemoveTags()
'updateby Extendoffice 
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de prompt será exibida, por favor, selecione as células das quais deseja remover as tags HTML, veja a captura de tela:

4. E então, clique no botão OK, e todas as tags HTML terão sido removidas das células selecionadas, veja a captura de tela:

Funções relacionadas usadas:

Mais artigos: