Przejdź do głównej zawartości

Jak przekonwertować HTML na tekst w komórkach w programie Excel?

Jak pokazano na poniższym zrzucie ekranu, jeśli liczba tagów html istniejących w komórkach arkusza roboczego, jak przekonwertować je na zwykły tekst w programie Excel? W tym artykule pokażemy dwie metody usuwania wszystkich tagów HTML z komórek w programie Excel.

Konwertuj html na tekst w wybranych komórkach za pomocą funkcji Znajdź i zamień
Konwertuj HTML na tekst w całym arkuszu za pomocą VBA


Konwertuj html na tekst w komórkach za pomocą funkcji Znajdź i zamień

Możesz przekonwertować cały HTML na teksty w komórkach z rozszerzeniem Znajdowanie i zamienianie funkcja w programie Excel. Wykonaj następujące czynności.

1. Wybierz komórki, do których przekonwertujesz cały html na teksty i naciśnij Ctrl + F klawisze, aby otworzyć Znajdowanie i zamienianie okno dialogowe.

2. w Znajdowanie i zamienianie w oknie dialogowym, przejdź do zastąpić wprowadź <*> do Znajdź co pudełko, zachowaj Zastąp pole puste i kliknij Zamień wszystko przycisk. Zobacz zrzut ekranu:

3. Następnie a Microsoft Excel pojawi się okno dialogowe z informacją, ile tagów html zostało zastąpionych, kliknij OK i zamknij Znajdowanie i zamienianie okno dialogowe.

Następnie możesz zobaczyć, że wszystkie tagi HTML są usuwane z wybranych komórek, jak pokazano poniżej.


Konwertuj HTML na tekst w całym arkuszu za pomocą VBA

Poza tym możesz przekonwertować cały html na tekst w całym arkuszu w tym samym czasie za pomocą poniższego kodu VBA.

1. Otwórz arkusz roboczy zawierający html, który skonwertujesz na tekst, a następnie naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj poniższy kod VBA do okna modułu.

Kod VBA: Konwertuj html na tekst w całym arkuszu

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. Nadal w Microsoft Visual Basic for Applications kliknij Tools > Referencje, Sprawdź Wyrażenie regularne Microsoft VBScript 5.5 opcja w Referencje-VBAProject okno dialogowe, a następnie kliknij plik OK przycisk.

4. wciśnij F5 lub kliknij przycisk Uruchom, aby uruchomić kod.

Następnie wszystkie tagi html są natychmiast usuwane z całego arkusza.


Podobne artykuły:

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 (5)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Can we prevent the links present in the html to stop converting?
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi Yash,
I don't quite understand what your mean. Can you upload a screenshot of your data?
This comment was minimized by the moderator on the site
I believe Yash likely means he would like to retain the "src" & "href" attributes. I would suggest extracting those using formulas in adjacent columns, editing the formula values into text and then proceeding with the html to text replacement
This comment was minimized by the moderator on the site
compile error: User defined type not defined
This comment was minimized by the moderator on the site
Thanks for that sub routine - just the job!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations