テキスト文字列から HTML タグを削除または取り除く

複数のテキスト文字列が HTML タグで囲まれている場合、この記事で紹介する方法が役立つかもしれません。

• 数式でシンプルな HTML タグをすべて削除または取り除く
• VBA コードで複雑な HTML タグを削除または取り除く

数式でシンプルな HTML タグをすべて削除または取り除く

テキスト文字列がいくつかのシンプルな HTML タグで囲まれている場合、Excel の MID 関数を使えばこの課題を解決できます。一般的な構文は次のとおりです。

• stringHTML タグを削除したいテキスト文字列またはセルの値。
• text_start：使用したい最初の文字が位置する場所の番号。
• tag_lenテキスト文字列に含まれる HTML タグの長さ。

次の数式を空白セルにコピーまたは入力してください。

次に、フィルハンドルを下方向にドラッグしてこの数式を適用したいセルまで伸ばすと、下図のようにすべての HTML タグがセルから自動的に削除されます。

数式の説明：

LEN(A2)-7：この LEN 関数は、セル A2 内のテキスト文字列の長さを取得し、そこから7（開始タグと終了タグを含む HTML タグの文字数）を引いて、HTML タグを除いた抽出対象の文字数を算出します。この値は、MID 関数の num_chars 引数として使用されます。

MID(A2,4,LEN(A2)-7)：この MID 関数は、4 文字目から始まり、文字列の長さが 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。次に、OKボタンをクリックすると、選択したセルからすべての HTML タグが削除されます（下図参照）。

使用される関連関数：

関連記事：