Прескочи на основното съдържание

Как да премахнете всички HTML тагове от низ в Excel?

Автор: Xiaoyang Последна промяна: 2020-12-24

Ако имате работен лист, който съдържа текстови низове, които са заобиколени с HTML тагове, сега искате да премахнете всички HTML тагове от низовете, за да направите клетките ясни и по-четими, както са показани следните екранни снимки. В тази статия ще представя някои методи за справяне с тази задача в Excel.

doc премахване на html тагове 1
1
doc премахване на html тагове 2

Премахнете всички HTML тагове от текстов низ с командата Find and Replace

Премахнете всички HTML тагове от текстов низ с VBA код


стрелка син десен балон Премахнете всички HTML тагове от текстов низ с командата Find and Replace

В действителност, Търсене и заместване функция в Excel може да реши този проблем, моля, направете следното:

1. Изберете клетките, от които искате да премахнете HTML таговете.

2. Задръжте Ctrl + H за да отворите Търсене и заместване диалогов прозорец, в диалоговия прозорец, в Намерете това, текстово поле, тип <*>, и оставете Заменете със текстовото поле е празно, вижте екранната снимка:

doc премахване на html тагове 3

3, След това кликнете Замести всички всички HTML тагове се премахват наведнъж.


стрелка син десен балон Премахнете всички HTML тагове от текстов низ с VBA код

Следният VBA код може да ви помогне да премахнете HTML таговете от селекция, моля, направете следното:

1. Задръжте натиснат Alt + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния VBA код в Модули Window.

VBA код: премахнете всички HTML тагове от текстов низ

Sub RemoveTags()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3. След това натиснете F5 за да стартирате този код, в изскачащия диалогов прозорец, моля, изберете клетките, които искате да премахнете HTML таговете, вижте екранната снимка:

doc премахване на html тагове 4

4. И после щракнете върху OK, всички HTML тагове са премахнати от селекцията наведнъж.

Безплатно изтегляне Kutools за Excel сега!

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Formatting is also removed, as it is with the Find and Replace.

Thanks for the code and tips.
This comment was minimized by the moderator on the site
Вариант с <*> просто великолепен.
Спасибо Вам
This comment was minimized by the moderator on the site
I have some text that is in bullet points, when i run this program it strips this out. how can i select which html tags to remove and which to keep?
This comment was minimized by the moderator on the site
xAddress is never used
This comment was minimized by the moderator on the site
Thank you .. The VBA instructions worked!
This comment was minimized by the moderator on the site
Thank you! I was able to clean up a large excel file with VBA with your simple instructions
This comment was minimized by the moderator on the site
Thank you for the code to remove all HTML tags from text string using VBA. I am going to pass your site along to my co-workers.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations