Jak odstranit všechny značky HTML z řetězce v aplikaci Excel?

Pokud máte list obsahující textové řetězce, které jsou obklopeny značkami HTML, nyní chcete odebrat všechny značky HTML z řetězců, aby byly buňky jasně a čitelnější, jak ukazují následující snímky obrazovky. V tomto článku představím některé metody řešení tohoto úkolu v aplikaci Excel.

Odeberte všechny značky HTML z textového řetězce pomocí příkazu Najít a nahradit

Odeberte všechny značky HTML z textového řetězce pomocí kódu VBA

Odeberte všechny značky HTML z textového řetězce pomocí příkazu Najít a nahradit

Ve skutečnosti, Najít a nahradit funkce v aplikaci Excel může tento problém vyřešit, postupujte takto:

1. Vyberte buňky, ze kterých chcete odebrat značky HTML.

2. Držet Ctrl + H klávesy pro otevření Najít a nahradit dialogové okno, v dialogovém okně, v Najít to, co textové pole, zadejte <*>a opustit Nahradit textové pole prázdné, viz screenshot:

3. Pak klikněte na tlačítko Nahradit vše tlačítko, všechny značky HTML jsou odstraněny najednou.

Odeberte všechny značky HTML z textového řetězce pomocí kódu VBA

Následující kód VBA vám pomůže odebrat značky HTML z výběru, postupujte takto:

1. Podržte Alt + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód VBA do Modul Okno.

Kód VBA: odstraňte všechny značky HTML z textového řetězce

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, ve vyskakovacím dialogovém okně vyberte buňky, které chcete odebrat značky HTML, viz screenshot:

4. A pak klikněte na tlačítko OK, byly z výběru odstraněny všechny značky HTML.

Stažení zdarma Kutools pro Excel nyní!