Jak převést html na text v buňkách v aplikaci Excel?

Jak je ukázáno na následujícím snímku obrazovky, pokud je počet html značek existujících v buňkách listu, jak je můžete převést na prostý text v aplikaci Excel? Tento článek vám ukáže dvě metody, jak odebrat všechny značky html z buněk v aplikaci Excel.

Převést html na text ve vybraných buňkách pomocí funkce Najít a nahradit
Převádějte html na text v celém listu pomocí VBA

Převeďte html na text v buňkách pomocí funkce Najít a nahradit

Veškerý html můžete převést na texty v buňkách pomocí Najít a nahradit funkce v aplikaci Excel. Postupujte prosím následovně.

1. Vyberte buňky, které převedete všechny html na texty, a stiskněte Ctrl + F klávesy pro otevření Najít a nahradit dialogové okno.

2. V Najít a nahradit dialogové okno, přejděte na Nahradit kartu, zadejte <*> do Najít to, co pole, ponechat Nahradit pole prázdné a klikněte na Nahradit vše knoflík. Viz screenshot:

3. Pak a Microsoft Excel Zobrazí se dialogové okno, které vám řekne, kolik html tagů bylo nahrazeno, klikněte na OK tlačítko a zavřete Najít a nahradit dialogové okno.

Pak můžete vidět, že jsou všechny značky html odstraněny z vybraných buněk, jak je uvedeno níže.

Převádějte html na text v celém listu pomocí VBA

Kromě toho můžete převést všechny html na text v celém listu současně pomocí níže uvedeného kódu VBA.

1. Otevřete list obsahující html, který převedete na text, a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, potom zkopírujte níže uvedený kód VBA do okna modulu.

Kód VBA: Převod html na text v celém listu

Sub RemoveHTMLTags()
'Update by Extendoffice 20180703
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xRegEx As RegExp
    Dim xMatch As Match
    Dim xMatches As MatchCollection
    Set xRegEx = New RegExp
    Application.EnableEvents = False
    Set xRg = Cells.SpecialCells(xlCellTypeConstants)
    With xRegEx
        .Global = True
        .Pattern = "<(""[^""]*""|'[^']*'|[^'"">])*>"
    End With
    For Each xCell In xRg
        xStr = xCell.Value
            Set xMatches = xRegEx.Execute(xCell.Text)
            For Each xMatch In xMatches
                xStr = Replace(xStr, xMatch.Value, "")
            Next
        xCell.Value = xStr
    Next
   Application.EnableEvents = True
End Sub

3. Stále v Microsoft Visual Basic pro aplikace okno, klikněte prosím Tools > Reference, zkontrolovat Pravidelný výraz Microsoft VBScript 5.5 možnost v Reference-VBAProject dialogové okno a poté klikněte na OK .

4. zmáčkni F5 spusťte kód kliknutím na tlačítko Spustit.

Poté jsou všechny značky html okamžitě odstraněny z celého listu.

Související články:

• Jak hromadně převádět čísla uložená jako text na čísla v aplikaci Excel?