Перейти к основному содержанию

Как преобразовать html в текст в ячейках Excel?

Как показано на скриншоте ниже, если в ячейках вашего рабочего листа есть несколько html-тегов, как вы могли бы преобразовать их в простой текст в Excel? В этой статье будут показаны два метода удаления всех тегов html из ячеек Excel.

Преобразование html в текст в выбранных ячейках с помощью функции поиска и замены
Преобразование html в текст на всем листе с помощью VBA


Преобразование html в текст в ячейках с помощью функции поиска и замены

Вы можете преобразовать весь HTML в текст в ячейках с помощью Найти и заменить функция в Excel. Пожалуйста, сделайте следующее.

1. Выберите ячейки, в которых вы преобразуете весь HTML-код в текст, и нажмите Ctrl + F , чтобы открыть Найти и заменить диалоговое окно.

2. в Найти и заменить диалогового окна, перейдите к Замените вкладка, введите <*> в Найти то, что коробка, держи Заменить пустое поле и щелкните Заменить все кнопка. Смотрите скриншот:

3. Затем Microsoft Excel появится диалоговое окно, в котором указано, сколько тегов html было заменено, щелкните значок OK кнопку и закройте Найти и заменить диалоговое окно.

Затем вы можете увидеть, что все теги html удалены из выбранных ячеек, как показано ниже.


Преобразование html в текст на всем листе с помощью VBA

Кроме того, вы можете конвертировать весь HTML в текст на всем листе одновременно с помощью приведенного ниже кода VBA.

1. Откройте рабочий лист, содержащий HTML-код, который вы преобразуете в текст, затем нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, затем скопируйте ниже код 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 Sub

3. Все еще в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Инструменты > Рекомендации, проверить Регулярное выражение Microsoft VBScript 5.5 вариант в Ссылки-VBAProject диалоговое окно, а затем щелкните значок OK .

4. нажмите F5 или нажмите кнопку «Выполнить», чтобы запустить код.

Затем все теги html сразу удаляются со всего рабочего листа.


Статьи по теме:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
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