Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

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 Przybory > 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

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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ęć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
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.
    ghyslain · 3 months ago
    compile error: User defined type not defined
  • To post as a guest, your comment is unpublished.
    Brian M · 2 years ago
    Thanks for that sub routine - just the job!