テキスト文字列から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関数は、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タグが削除されます。スクリーンショットをご覧ください：

関連する関数：

その他の記事：