如何在Excel的單元格中將HTML轉換為文本？

如下面的屏幕截圖所示，如果工作表單元格中存在許多html標記，那么如何在Excel中將它們轉換為純文本？ 本文將向您展示兩種從Excel單元格中刪除所有html標記的方法。

使用查找和替換功能將html轉換為選定單元格中的文本

使用VBA將HTML轉換為整個工作表中的文本 使用查找和替換功能將HTML轉換為單元格中的文本

您可以將所有html轉換為單元格中的文本 查找和替換 Excel中的功能。 請執(zhí)行以下操作。

1.選擇將所有html轉換為文本的單元格，然后按 按Ctrl + F 鍵打開 查找和替換 對話框。

2.在 查找和替換 對話框，轉到 更換 標簽，輸入 <*> 到 查找內容 盒子，保持 更換 框為空，然后單擊 “全部替換” 按鈕。 看截圖：

3.然后 微軟的Excel 彈出對話框，告訴您已替換了多少個html標簽，請單擊 OK 按鈕并關閉 查找和替換 對話框。

然后，您可以看到所有html標記已從選定的單元格中刪除，如下圖所示。

使用VBA將HTML轉換為整個工作表中的文本

此外，您可以使用以下VBA代碼同時將所有html轉換為整個工作表中的文本。

1.打開包含要轉換為文本的html的工作表，然后按 其他 + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊，然后將以下VBA代碼復制到“模塊”窗口中。

VBA代碼：將html轉換為整個工作表中的文本

Sub RemoveHTMLTags()Update by Extendoffice 20180703Dim xRg As RangeDim xCell As RangeDim xStr As StringDim xRegEx As RegExpDim xMatch As MatchDim xMatches As MatchCollectionSet xRegEx = New RegExpApplication.EnableEvents = FalseSet xRg = Cells.SpecialCells(xlCellTypeConstants)With xRegEx.Global = True.Pattern = "<(""[^""]*""|[^]*|[^"">])*>"End WithFor Each xCell In xRgxStr = xCell.ValueSet xMatches = xRegEx.Execute(xCell.Text)For Each xMatch In xMatchesxStr = Replace(xStr, xMatch.Value, "")NextxCell.Value = xStrNextApplication.EnableEvents = TrueEnd SubCopy

3.仍在 Microsoft Visual Basic應用程序 窗口，請點擊 工具 > 參考資料， 檢查 Microsoft VBscript正則表達式5.5 在選項 參考文獻-VBAProject 對話框，然后單擊 OK 按鈕。

4。 按 F5 鍵或單擊“運行”按鈕以運行代碼。

然后，將所有html標記立即從整個工作表中刪除。

相關文章：如何將存儲為文本的數字批量轉換為Excel中的數字？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復雜的任務并像專業(yè)人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel