從文字字串中去除或剝離 HTML 標籤

如果有多個被 HTML 標籤包圍的文字字串，要移除所有 HTML 標籤，本文中的方法可能會對您有所幫助。

• 使用公式去除或剝離所有簡單的 HTML 標籤
• 使用 VBA 程式碼去除或剝離一些複雜的 HTML 標籤

使用公式去除或剝離所有簡單的 HTML 標籤

如果您的文字字串被一些簡單的 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 函數用於從第四個字符開始提取所有字符，而字符串的長度是 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 標籤都已被移除，參見截圖：

相關函數：

更多文章：