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
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...
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!