Видаліть або видаліть HTML-теги з текстових рядків

Якщо є кілька текстових рядків, оточених тегами 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.

Середній (A2,4, LEN (A2) -7): Ця функція MID використовується для вилучення всіх символів, що починаються з четвертого символу, а довжина рядка - це числові символи, що повертаються функцією LEN.

Видаліть або видаліть деякі складні теги html із кодом VBA

Якщо в текстовому рядку є кілька тегів html, як показано на знімку екрана, наведена вище формула може не працювати належним чином, у цьому випадку наступний код VBA може допомогти вам мати справу з деякими складними тегами html у текстових рядках.

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

2. Клацання Insert > Модуліта вставте наступний код 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 були видалені з вибраних комірок, див. знімок екрана:

Використовувані відносні функції:

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