Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

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

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

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


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

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

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

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

3.次に、 Microsoft 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 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タグがワークシート全体からすぐに削除されます。


関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ghyslain · 5 months ago
    compile error: User defined type not defined
  • To post as a guest, your comment is unpublished.
    Brian M · 2 years ago
    Thanks for that sub routine - just the job!