Verwijder of strip HTML-tags uit tekststrings

Als er meerdere tekststrings zijn die omgeven zijn door HTML-tags, en je wilt al deze HTML-tags verwijderen, kunnen de methoden in dit artikel je helpen.

• Verwijder of strip alle eenvoudige HTML-tags met een formule
• Verwijder of strip complexe HTML-tags met VBA-code

Verwijder of strip alle eenvoudige HTML-tags met een formule

Als je tekststrings omgeven zijn door eenvoudige HTML-tags, kan de MID-functie in Excel je helpen bij het oplossen van deze taak. De algemene syntaxis is:

• tekst: de tekststring of celwaarde waarvan je de HTML-tags wilt verwijderen.
• start_tekst: het nummer van de positie waarop het eerste teken staat dat je wilt gebruiken.
• tag_lengte: de lengte van de HTML-tags binnen de tekststring.

Kopieer of voer de volgende formule in een lege cel in:

Sleep vervolgens de vulgreep naar beneden naar de cellen waarop je deze formule wilt toepassen, en alle HTML-tags zijn verwijderd uit de cellen zoals te zien is in de onderstaande schermafbeelding:

Uitleg van de formule:

LENGTE(A2)-7: Deze LENGTE-functie wordt gebruikt om de lengte van de tekststring in cel A2 te berekenen, en trekt 7 af (het aantal HTML-tags, zowel de openings- als de sluitingstags), wat betekent dat je het aantal tekens krijgt dat je wilt extraheren zonder de HTML-tag. De geretourneerde waarde wordt gebruikt als het argument num_tekens binnen de MID-functie.

MID(A2,4,LENGTE(A2)-7): Deze MID-functie wordt gebruikt om alle tekens te extraheren die beginnen bij het vierde teken, en de lengte van de string is het aantal tekens dat wordt geretourneerd door de LENGTE-functie.

Verwijder of strip enkele complexe HTML-tags met VBA-code

Als er meerdere HTML-tags in de tekststring staan zoals te zien is in de onderstaande schermafbeelding, werkt de bovenstaande formule mogelijk niet correct. In dit geval kan de volgende VBA-code je helpen om enkele complexe HTML-tags in tekststrings te verwijderen.

1. Druk tegelijkertijd op Alt + F11 in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende VBA-code in het Modulevenster.

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. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een promptvenster waarin je de cellen selecteert waaruit je de HTML-tags wilt verwijderen, zie onderstaande schermafbeelding:

4. Klik vervolgens op de knop OK, en alle HTML-tags zijn verwijderd uit de geselecteerde cellen, zie onderstaande schermafbeelding:

Gerelateerde functies:

Meer artikelen: