Як перетворити html у текст у комірках у Excel?
Як показано нижче на скріншоті, якщо кількість тегів html, що існують у комірках робочого аркуша, як можна перетворити їх на звичайний текст у Excel? Ця стаття покаже вам два способи видалення всіх тегів html з комірок у Excel.
Перетворіть html у текст у вибраних клітинках за допомогою функції Знайти та Замінити
Перетворіть html в текст на цілому аркуші за допомогою VBA
Перетворіть html в текст у клітинках за допомогою функції Знайти та Замінити
Ви можете перетворити весь html у тексти в клітинках за допомогою Знайти і замінити функція в Excel. Будь ласка, виконайте наступне.
1. Виділіть клітинки, для яких ви перетворите весь html у тексти, та натисніть Ctrl + F ключі, щоб відкрити Знайти і замінити діалогове вікно.
2 В Знайти і замінити діалогове вікно, перейдіть до заміщати , введіть <*> в Знайти те, що зберігайте Замінити поле порожнє, і клацніть на замінити всі кнопку. Дивіться знімок екрана:
3. Тоді a Microsoft Excel з'явиться діалогове вікно, щоб повідомити, скільки тегів HTML було замінено, клацніть на OK і закрийте Знайти і замінити діалогове вікно.
Тоді ви можете побачити, що всі теги html видаляються з вибраних комірок, як показано на знімку екрана нижче.
Перетворіть html в текст на цілому аркуші за допомогою VBA
Крім того, ви можете одночасно перетворити весь html у текст на цілому аркуші за допомогою наведеного нижче коду VBA.
1. Відкрийте аркуш, що містить html, який ви перетворите в текст, а потім натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте код VBA у вікно модуля.
Код VBA: перетворення html в текст на цілому аркуші
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 Sub3. Все ще в Microsoft Visual Basic для додатків вікно, натисніть Tools > посилання, перевірте Регулярний вираз Microsoft VBScript 5.5 опція в Посилання-VBAProject , а потім клацніть на OK кнопки.
4 Натисніть кнопку F5 клавішу або натисніть кнопку Виконати, щоб запустити код.
Потім усі теги html негайно видаляються з цілого аркуша.
Статті по темі:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
