從文本字符串中刪除或刪除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。 按住 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。 然後，單擊 OK 按鈕，並且所有html標籤都已從所選單元格中刪除，請參見屏幕截圖：

使用的相對功能：

更多文章：

---

最佳辦公效率工具

Kutools for Excel - 助您脫穎而出

	熱門特色: 尋找、突出顯示或識別重複項  |  刪除空白行  |  合併列或儲存格而不遺失數據  |  沒有公式的回合 ...
	超VLookup: 多重標準  |  多重價值  |  跨多頁  |  模糊查詢...
	副詞。 下拉清單: 簡易下拉列表  |  依賴下拉列表  |  多選下拉列表...
	欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  將列與 選擇相同和不同的單元格 ...
	特色功能: 網格焦點  |  設計圖  |  大方程式酒吧  |  工作簿和工作表管理器 | 資源庫 （自動文字）  |  日期選擇器  |  合併工作表  |  加密/解密單元格  |  按清單發送電子郵件  |  超級濾鏡  |  特殊過濾器 （過濾粗體/斜體/刪除線...）...
	前 15 個工具集:  12 文本 工具 (添加文本, 刪除字符 ...）  |  50+ 圖表 類型 (甘特圖 ...）  |  40+ 實用 公式 (根據生日計算年齡 ...）  |  19 插入 工具 (插入二維碼, 從路徑插入圖片 ...）  |  12 轉化 工具 (數字到單詞, 貨幣兌換 ...）  |  7 合併與拆分 工具 (高級合併行, 拆分 Excel 儲存格 ...）  |  ... 和更多

Kutools for Excel 擁有 300 多項功能， 確保只需點擊一下即可獲得您所需要的...

 閱讀更多免費下載

---

Office Tab - 在 Microsoft Office（包括 Excel）中啟用分頁式閱讀和編輯

• 一秒鐘即可在數十個打開的文檔之間切換！
• 每天為您減少數百次鼠標單擊，告別鼠標手。
• 查看和編輯多個文檔時，將您的工作效率提高 50%。
• 為 Office（包括 Excel）帶來高效的選項卡，就像 Chrome、Edge 和 Firefox 一樣。

 閱讀更多 免費下載