Przejdź do głównej zawartości

Jak usunąć wszystkie tagi HTML z ciągu znaków w programie Excel?

Jeśli masz arkusz roboczy zawierający ciągi tekstowe otoczone znacznikami HTML, teraz chcesz usunąć wszystkie znaczniki HTML z ciągów, aby komórki były wyraźne i bardziej czytelne, jak pokazano na poniższych zrzutach ekranu. W tym artykule przedstawię kilka metod radzenia sobie z tym zadaniem w programie Excel.

doc usuń tagi html 1
1
doc usuń tagi html 2

Usuń wszystkie znaczniki HTML z ciągu tekstowego za pomocą polecenia Znajdź i zamień

Usuń wszystkie tagi HTML z ciągu tekstowego za pomocą kodu VBA


strzałka niebieski prawy bąbelek Usuń wszystkie znaczniki HTML z ciągu tekstowego za pomocą polecenia Znajdź i zamień

W rzeczywistości Znajdowanie i zamienianie funkcja w programie Excel może rozwiązać ten problem, wykonaj następujące czynności:

1. Wybierz komórki, z których chcesz usunąć znaczniki HTML.

2. Trzymać Ctrl + H klawisze, aby otworzyć Znajdowanie i zamienianie okno dialogowe, w oknie dialogowym, w Znajdź co pole tekstowe, wpisz <*>i zostaw Zastąp pole tekstowe puste, zobacz zrzut ekranu:

doc usuń tagi html 3

3. Następnie kliknij Zamień wszystko przycisk, wszystkie znaczniki HTML są usuwane jednocześnie.


strzałka niebieski prawy bąbelek Usuń wszystkie tagi HTML z ciągu tekstowego za pomocą kodu VBA

Poniższy kod VBA może pomóc w usunięciu tagów HTML z zaznaczenia, wykonaj następujące czynności:

1. Przytrzymaj Alt + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod VBA w Moduł Okno.

Kod VBA: usuń wszystkie tagi HTML z ciągu tekstowego

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. Następnie naciśnij F5 Aby uruchomić ten kod, w wyskakującym oknie dialogowym wybierz komórki, z których chcesz usunąć tagi HTML, zobacz zrzut ekranu:

doc usuń tagi html 4

4. A następnie kliknij OK, wszystkie znaczniki HTML zostały jednocześnie usunięte z zaznaczenia.

Bezpłatne pobieranie Kutools dla programu Excel teraz!

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Formatting is also removed, as it is with the Find and Replace.

Thanks for the code and tips.
This comment was minimized by the moderator on the site
Вариант с <*> просто великолепен.
Спасибо Вам
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
xAddress is never used
This comment was minimized by the moderator on the site
Thank you .. The VBA instructions worked!
This comment was minimized by the moderator on the site
Thank you! I was able to clean up a large excel file with VBA with your simple instructions
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations