Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie entfernt man alle HTML-Tags aus der Zeichenkette in Excel?

Wenn Sie ein Arbeitsblatt mit Textzeichenfolgen haben, die mit den HTML-Tags umgeben sind, möchten Sie jetzt alle HTML-Tags aus den Strings entfernen, um die Zellen klar und lesbar zu machen, wie in den folgenden Screenshots gezeigt. In diesem Artikel werde ich einige Methoden vorstellen, um diese Aufgabe in Excel zu bewältigen.

doc Entfernen von HTML-Tags 1
 1
doc Entfernen von HTML-Tags 2

Entfernen Sie alle HTML-Tags aus der Textzeichenfolge mit dem Befehl Suchen und Ersetzen

Entfernen Sie alle HTML-Tags aus der Textzeichenfolge mit VBA-Code


Pfeil blaue rechte Blase Entfernen Sie alle HTML-Tags aus der Textzeichenfolge mit dem Befehl Suchen und Ersetzen


Tatsächlich ist die Suchen und Ersetzen Funktion in Excel kann dieses Problem lösen, bitte wie folgt vorgehen:

1. Wählen Sie die Zellen aus, die Sie die HTML-Tags entfernen möchten.

2. Halt Strg + H Schlüssel zum Öffnen der Suchen und Ersetzen Dialogfeld im Dialogfeld in der Finden Sie, was Textfeld, geben Sie ein <*>und verlasse die Ersetzen durch Textfeld leer, siehe Screenshot:

doc Entfernen von HTML-Tags 3

3. Dann klick Alle ersetzen Schaltfläche werden alle HTML-Tags gleichzeitig entfernt.


Pfeil blaue rechte Blase Entfernen Sie alle HTML-Tags aus der Textzeichenfolge mit VBA-Code

Der folgende VBA-Code kann Ihnen helfen, die HTML-Tags aus einer Auswahl zu entfernen, gehen Sie bitte wie folgt vor:

1. Halten Sie die Taste gedrückt Alt + F11 Schlüssel in Excel, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden VBA - Code in den Modul Fenster.

VBA-Code: Entfernen Sie alle HTML-Tags aus der Textzeichenfolge

Sub RemoveTags()
'updateby Extendoffice 20160202
    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. Dann drücken F5 Um diesen Code auszuführen, wählen Sie im Popup-Fenster die Zellen aus, die Sie entfernen möchten, siehe Screenshot:

doc Entfernen von HTML-Tags 4

4. Und dann klick OKAlle HTML-Tags wurden sofort aus der Auswahl entfernt.

Kostenloser Download Kutools für Excel jetzt!


Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jayden Currie · 1 years ago
    I have some text that is in bullet points, when i run this program it strips this out. how can i select which html tags to remove and which to keep?
  • To post as a guest, your comment is unpublished.
    Wild Rumpus · 1 years ago
    xAddress is never used
  • To post as a guest, your comment is unpublished.
    Shruti · 1 years ago
    Thank you .. The VBA instructions worked!
  • To post as a guest, your comment is unpublished.
    Jo · 1 years ago
    Thank you! I was able to clean up a large excel file with VBA with your simple instructions
  • To post as a guest, your comment is unpublished.
    Susan · 2 years ago
    Thank you for the code to remove all HTML tags from text string using VBA. I am going to pass your site along to my co-workers.