ExcelのセルでHTMLをテキストに変換する方法は？

以下のスクリーンショットに示すように、ワークシートのセルに多数のhtmlタグが存在する場合、Excelでそれらをプレーンテキストに変換するにはどうすればよいですか？ この記事では、Excelのセルからすべてのhtmlタグを削除するXNUMXつの方法を紹介します。

検索と置換機能を使用して、選択したセルのhtmlをテキストに変換します
VBAを使用してワークシート全体でHTMLをテキストに変換する

検索と置換機能を使用して、HTMLをセル内のテキストに変換します

あなたはすべてのhtmlをセル内のテキストに変換することができます 検索および置換 Excelで機能します。 次のようにしてください。

1.すべてのhtmlをテキストに変換するセルを選択し、を押します。 Ctrlキー + F キーを押して 検索および置換 ダイアログボックス。

2。 の中に 検索および置換 ダイアログボックスで 交換する タブ、入力 <*> に 見つける ボックス、保管してください と交換 ボックスが空の場合は、 すべて置換 ボタン。 スクリーンショットを参照してください：

3.次に、 Microsoft エクセル 置き換えられた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 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 ウィンドウをクリックしてください ツール > 参考情報、 MicrosoftVBScript正規表現5.5 内のオプション 参考資料-VBAProject ダイアログボックスをクリックし、 OK

4。 プレス F5 キーを押すか、[実行]ボタンをクリックしてコードを実行します。

次に、すべてのhtmlタグがワークシート全体からすぐに削除されます。

関連記事：

• テキストとして保存されている数値をExcelで数値に一括変換するにはどうすればよいですか？