從文字字串中清除或移除 HTML 標籤

若有多段文字字串被 HTML 標籤包圍，本文介紹的方法或許能助您一臂之力。

• 使用公式清除或移除所有簡單網頁標籤
• 使用 VBA 程式碼清除或移除部分複雜的 HTML 標籤

使用公式清除或移除所有簡單網頁標籤

若您的文字字串被某些簡單的網頁標籤包圍，Excel 的 MID 函數就能幫您輕鬆完成這項任務。其通用語法如下：

• string 您要從中移除 HTML 標籤的文字字串或儲存格內容。
• text_start：您要使用的首個字元所在的位置編號。
• tag_len 文字字串中 HTML 標籤的長度。

請將下列公式複製或輸入至空白儲存格中：

接著，向下拖曳填滿控點至您要套用此公式的儲存格，所有 HTML 標籤便會如下方截圖所示從儲存格中移除：

公式說明：

LEN(A2)-7：此 LEN 函數用於計算儲存格 A2 中文字字串的長度，並減去 7（即 HTML 標籤的總數，包含開頭與結尾標籤），以取得不含 HTML 標籤的字元數。該結果將作為 MID 函數的 num_chars 參數。

MID(A2,4,LEN(A2)-7)：此 MID 函數從第 4 個字元開始提取字串，提取長度由 LEN 函數所傳回的 num_chars 決定，輕鬆掌握資料截取技巧！

使用 VBA 程式碼清除或移除部分複雜的 HTML 標籤

若文字字串中包含多個 HTML 標籤（如下方截圖所示），上述公式可能無法正確運作。此時，以下 VBA 程式碼可協助您有效處理文字字串中的複雜 HTML 標籤。

1. 在 Excel 中按住 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

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. 點選確定按鈕後，所有 HTML 標籤便會如截圖所示從所選儲存格中移除：

相關函數：

更多文章：