HTML-tags uit tekenreeksen verwijderen

Als er meerdere tekenreeksen zijn omgeven door HTML-tags, helpen de methoden in dit artikel u daarbij.

• Alle Eenvoudige HTML-tags verwijderen met een formule
• Complexe HTML-tags verwijderen met VBA-code

Alle Eenvoudige HTML-tags verwijderen met een formule

Als uw tekenreeksen zijn omgeven door eenvoudige HTML-tags, helpt de functie MID in Excel u bij deze taak. De algemene syntaxis is:

• string: de tekenreeks of celwaarde waaruit u de HTML-tags wilt verwijderen.
• text_start: het nummer van de positie van het eerste teken dat u wilt gebruiken.
• tag_len: de lengte van de HTML-tags binnen de tekenreeks.

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

Sleep vervolgens de vulgreep naar de cellen waarop u deze formule wilt toepassen; alle HTML-tags zijn dan verwijderd uit de cellen, zoals in onderstaande afbeelding wordt weergegeven:

Uitleg van de formule:

LEN(A2)-7: Deze LEN-functie berekent de lengte van de tekenreeks in cel A2 en trekt 7 af — het aantal tekens dat overeenkomt met de HTML-tags (zowel openende als sluitende tags) — zodat u alleen de gewenste tekst extraheren, zonder de HTML-tags. Het resultaat van deze berekening wordt gebruikt als het argument num_chars in de MID-functie.

MID(A2,4,LEN(A2)-7): Met deze MID-functie worden alle tekens geëxtraheerd vanaf het vierde teken; de lengte van de tekenreeks wordt bepaald door het aantal tekens dat de LEN-functie retourneert.

Complexe HTML-tags verwijderen met VBA-code

Als er meerdere HTML-tags in de tekenreeks aanwezig zijn, zoals in onderstaande afbeelding wordt weergegeven, werkt de bovenstaande formule mogelijk niet correct. In dat geval kan de volgende VBA-code u helpen bij het verwerken van complexe HTML-tags in tekenreeksen.

1. Houd de toetsen Alt + F11 ingedrukt in Excel; hierdoor wordt het venster Microsoft Visual Basic for Applications 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 toets F5 om deze code uit te voeren. Er verschijnt dan een dialoogvenster waarin u de cellen selecteert waaruit u de HTML-tags wilt verwijderen. Zie afbeelding:

4. Klik daarna op de knop OK en alle HTML-tags worden uit de geselecteerde cellen verwijderd. Zie afbeelding:

Gebruikte gerelateerde functies:

Meer artikelen: