Удаление HTML-тегов из текстовых строк

Если у вас есть несколько текстовых строк, заключённых в HTML-теги, методы из этой статьи помогут вам легко удалить все HTML-теги.

• Удаление всех тегов Простой HTML с помощью формулы
• Удаление сложных HTML-тегов с помощью кода VBA

Удаление всех тегов Простой HTML с помощью формулы

Если ваши текстовые строки заключены в простые HTML-теги, функция ПСТР в Excel поможет вам легко справиться с этой задачей. Общий синтаксис:

• string: текстовая строка или значение ячейки, из которой нужно удалить HTML-теги.
• text_start: номер позиции первого символа, с которого начинается извлечение.
• tag_lenДлина HTML-тегов внутри текстовой строки.

Скопируйте или введите следующую формулу в пустую ячейку:

Затем перетащите маркер заполнения вниз на ячейки, к которым вы хотите применить эту формулу, и все HTML-теги будут удалены из ячеек, как показано на снимке экрана ниже:

Пояснение к формуле:

LEN(A2)-7: Эта функция ДЛСТР вычисляет длину текстовой строки в ячейке A2 и вычитает 7 — количество символов, занимаемых HTML-тегами (включая открывающий и закрывающий теги), — чтобы определить, сколько символов нужно извлечь, исключая эти теги. Возвращаемое значение используется в качестве аргумента «число_знаков» функции ПСТР.

MID(A2,4,LEN(A2)-7): Эта функция ПСТР извлекает все символы, начиная с четвёртого, причём длина извлекаемой строки определяется значением, возвращаемым функцией ДЛСТР.

Удаление сложных HTML-тегов с помощью кода VBA

Если текстовая строка содержит несколько HTML-тегов, как показано на снимке экрана ниже, приведённая выше формула может работать некорректно. В таком случае следующий код VBA поможет вам корректно обработать сложные HTML-теги в текстовых строках.

1. Удерживая клавиши Alt + F11 в Excel, откройте окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте следующий код VBA в окно модуля.

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-теги» (см. снимок экрана):

4. Затем нажмите кнопку OK, и все HTML-теги будут удалены из выбранных ячеек (см. снимок экрана):

Используемые связанные функции:

Дополнительные статьи: