vba编程把纯文本转换成html,如何在Excel的单元格中将HTML转换为文本？
如何在Excel的單元格中將HTML轉(zhuǎn)換為文本？
如下面的屏幕截圖所示，如果工作表單元格中存在許多html標(biāo)記，那么如何在Excel中將它們轉(zhuǎn)換為純文本？ 本文將向您展示兩種從Excel單元格中刪除所有html標(biāo)記的方法。
使用查找和替換功能將HTML轉(zhuǎn)換為單元格中的文本
您可以將所有html轉(zhuǎn)換為單元格中的文本 查找和替換 Excel中的功能。 請執(zhí)行以下操作。
1.選擇將所有html轉(zhuǎn)換為文本的單元格，然后按 按Ctrl + F 鍵打開查找和替換 對話框。
2。 在里面查找和替換 對話框，轉(zhuǎn)到 更換 標(biāo)簽，輸入 到 查找內(nèi)容 盒子，保持 更換 框?yàn)榭?#xff0c;然后單擊 “全部替換” 按鈕。 看截圖：
3.然后 微軟的Excel 彈出對話框，告訴您已替換了多少個(gè)html標(biāo)簽，請單擊 OK 按鈕并關(guān)閉 查找和替換 對話框。
然后，您可以看到所有html標(biāo)記已從選定的單元格中刪除，如下圖所示。
使用VBA將HTML轉(zhuǎn)換為整個(gè)工作表中的文本
此外，您可以使用以下VBA代碼同時(shí)將所有html轉(zhuǎn)換為整個(gè)工作表中的文本。
1.打開包含要轉(zhuǎn)換為文本的html的工作表，然后按 其他 + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 在里面 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁 > 模塊，然后將以下VBA代碼復(fù)制到“模塊”窗口中。
VBA代碼：將html轉(zhuǎn)換為整個(gè)工作表中的文本
Sub RemoveHTMLTags()
'Update by Extendoffice 20180703
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
Dim xRegEx As RegExp
Dim xMatch As Match
Dim xMatches As MatchCollection
Set xRegEx = New RegExp
Application.EnableEvents = False
Set xRg = Cells.SpecialCells(xlCellTypeConstants)
With xRegEx
.Global = True
.Pattern = "])*>"
End With
For Each xCell In xRg
xStr = xCell.Value
Set xMatches = xRegEx.Execute(xCell.Text)
For Each xMatch In xMatches
xStr = Replace(xStr, xMatch.Value, "")
Next
xCell.Value = xStr
Next
Application.EnableEvents = True
End Sub
3.仍在 Microsoft Visual Basic應(yīng)用程序 窗口，請點(diǎn)擊 工具 > 參考資料， 檢查Microsoft VBScript正則表達(dá)式5.5 在選項(xiàng) 參考文獻(xiàn)-VBAProject 對話框，然后單擊 OK 按鈕。
4。 按 F5 鍵或單擊“運(yùn)行”按鈕以運(yùn)行代碼。
然后，將所有html標(biāo)記立即從整個(gè)工作表中刪除。
相關(guān)文章：
最佳辦公效率工具
Kutools for Excel解決了您的大多數(shù)問題，并使您的生產(chǎn)率提高了80％
重用: 快速插入 復(fù)雜的公式，圖表?以及您以前使用過的任何東西； 加密單元 帶密碼 創(chuàng)建郵件列表 并發(fā)送電子郵件...
超級公式欄 (輕松編輯多行文本和公式)； 閱讀版式 (輕松讀取和編輯大量單元格)； 粘貼到過濾范圍...
合并單元格/行/列 不會(huì)丟失數(shù)據(jù)； 拆分單元格內(nèi)容； 合并重復(fù)的行/列...防止細(xì)胞重復(fù)； 比較范圍...
選擇重復(fù)或唯一 行; 選擇空白行 (所有單元格都是空的)； 超級查找和模糊查找 在許多工作簿中； 隨機(jī)選擇...
確切的副本 多個(gè)單元格，無需更改公式參考； 自動(dòng)創(chuàng)建參考 到多張紙； 插入項(xiàng)目符號，復(fù)選框等...
提取文字，添加文本，按位置刪除， 刪除空間; 創(chuàng)建和打印分頁小計(jì)； 在單元格內(nèi)容和注釋之間轉(zhuǎn)換...
超級濾鏡 (將過濾方案保存并應(yīng)用于其他工作表)； 高級排序 按月/周/日，頻率及更多； 特殊過濾器 用粗體，斜體...
結(jié)合工作簿和工作表; 根據(jù)關(guān)鍵列合并表； 將數(shù)據(jù)分割成多個(gè)工作表; 批量轉(zhuǎn)換xls，xlsx和PDF...
超過300種強(qiáng)大功能。 支持Office / Excel 2007-2019和365。支持所有語言。 在您的企業(yè)或組織中輕松部署。 完整功能30天免費(fèi)試用。 60天退款保證。
Office選項(xiàng)卡為Office帶來了選項(xiàng)卡式界面，使您的工作更加輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
總結(jié)
以上是生活随笔為你收集整理的vba编程把纯文本转换成html,如何在Excel的单元格中将HTML转换为文本？的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 值得一读的《框架设计（第2版）：CLR
- 下一篇： h5如何上传文件二进制流_HTML5新特