Strip of verwijder html-tags uit tekstreeksen

Als er meerdere tekstreeksen zijn die zijn omgeven door de html-tags, om alle html-tags te verwijderen, kunnen de methoden in dit artikel u een plezier doen.

• Strip of verwijder alle eenvoudige html-tags met formule
• Strip of verwijder enkele complexe html-tags met VBA-code

Strip of verwijder alle eenvoudige html-tags met formule

Als uw tekstreeksen zijn omgeven door enkele eenvoudige html-tags, kan de MID-functie in Excel u helpen deze taak op te lossen. De generieke syntaxis is:

• string: de tekstreeks of celwaarde waaruit u de html-tags wilt verwijderen.
• text_start: het nummer van de positie die het eerste teken heeft gevonden dat u wilt gebruiken.
• tag_len: de lengte van de html-tags binnen de tekstreeks.

Kopieer of typ de volgende formule in een lege cel:

Sleep vervolgens de vulgreep naar de cellen waarop u deze formule wilt toepassen en alle html-tags zijn uit de cellen verwijderd, zoals onderstaand screenshot laat zien:

Verklaring van de formule:

LEN (A2) -7: Deze LEN-functie wordt gebruikt om de lengte van de tekstreeks in cel A2 te berekenen, en trekt 7 af (het aantal html-tags, zowel de begin- als de eindtags), wat betekent dat het aantal tekens wordt opgehaald dat u wilt extraheren en die uitsluiten de html-tag. De geretourneerde waarde wordt gebruikt als het argument num_chars binnen de MID-functie.

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

Strip of verwijder enkele complexe html-tags met VBA-code

Als de tekstreeks meerdere html-tags bevat, zoals onderstaand screenshot, werkt de bovenstaande formule mogelijk niet correct. In dit geval kan de volgende VBA-code u helpen bij het omgaan met enkele complexe html-tags in tekstreeksen.

1. Houd de Alt + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen 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 F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster, selecteer de cellen waarvan u de html-tags wilt verwijderen, zie screenshot:

4. En klik dan OK knop, en alle html-tags zijn verwijderd uit de geselecteerde cellen, zie screenshot:

Gebruikte relatieve functies:

Meer artikelen: