Retire ou remova marcas html de strings de texto

Se houver várias cadeias de texto circundadas por tags html, para remover todas as tags html, os métodos neste artigo podem lhe fazer um favor.

• Retire ou remova todas as tags html simples com fórmula
• Retire ou remova algumas tags html complexas com código VBA

---

Retire ou remova todas as tags html simples com fórmula

Se as suas cadeias de texto estiverem rodeadas por algumas tags html simples, a função MID do Excel pode ajudá-lo a resolver esse trabalho. A sintaxe genérica é:

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

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 às quais deseja aplicar esta fórmula, e todas as tags html foram removidas das células, conforme mostrado 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 subtrair 7 (o número das marcas html, tanto as marcas de início como de fim) significa obter o número de caracteres que você deseja extrair e excluir a tag html. O valor retornado será usado como o argumento num_chars na 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.

---

Retire ou remova algumas tags html complexas com código VBA

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

1. Segure o Alt + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe 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. Então aperte F5 para executar este código e uma caixa de prompt for exibida, selecione as células das quais deseja remover as tags html, consulte a captura de tela:

4. E então, clique OK botão, e todas as tags html foram removidas das células selecionadas, consulte a captura de tela:

---

Funções relativas usadas:

---

Mais artigos: