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

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

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

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

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

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

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

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

Объяснение формулы:

LEN(A2)-7: Эта функция LEN используется для расчета длины текстовой строки в ячейке A2, а затем вычитает 7 (количество HTML-тегов, включая начальные и конечные теги), чтобы получить количество символов, которые вы хотите извлечь, исключая HTML-тег. Возвращаемое значение будет использоваться как аргумент num_chars в функции MID.

MID(A2,4,LEN(A2)-7): Эта функция MID используется для извлечения всех символов, начиная с четвертого символа, а длина строки — это количество символов, возвращаемых функцией LEN.

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

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

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

2. Нажмите Insert > Module и вставьте следующий код 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-теги будут удалены из выбранных ячеек, см. скриншот:

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

Больше статей: