Excelセルの重複テキスト /単語を強調表示する方法

このチュートリアルでは、VBAを使用してExcelセル内の重複した単語またはフレーズを強調する方法を示しています。 Excelの組み込みの条件付き書式は、広範な重複した強調表示オプションを提供しますが、セルレベルで動作します。このマクロにより、セル内の特定のテキストを強調表示できます。

Excelの条件付きフォーマットは、単一または複数の列、連続した重複、またはキー列に基づいた行全体で、最初の発生を伴う、またはそれなしで、さまざまな方法で重複を強調表示することに優れています。ただし、単一のセル内の重複テキストセグメントを強調する機能がありません。この制限では、マクロの使用が必要です。

このガイドは、VBAの以前の経験のない人であっても、すぐに使用できるVBAコードと指示を提供します。

重複した単語の強調表示（ケース非感受性）

このマクロは、大文字に関係なく、赤いフォントを使用してセル内の重複した単語を強調します。 「オレンジ」、「オレンジ」、「オレンジ」は同一と扱われます。

VBAコード（ケース非感受性）：

 public highlightdupescaseInsensitive（）
  範囲としての薄暗いセル
  文字列としてのDIM Delimiter
  delimiter = inputbox（ "区分を分離する値（eg、 '、'）"、 "delimiter"、 "、"）
  Application.Selectionの各セルについて
    highlightdupewordsincell（セル、区切り文字、false）を呼び出す
  次
End Sub

Sub HighlightDupewordsincell（範囲としてのセル、string = "" as optional delimiter as string、optional cassensitive as boolean = true）
  文字列としての薄暗いテキスト
  dim words（）as string
  文字列としての薄暗い単語
  dim wordindex、matchcount、positionintextとしてのpositionintext
  CaseSensitiveの場合
    words = split（cell.value、delimiter）
  それ以外
    words = split（lcase（cell.value）、delimiter）
  ifを終了します
  wordindex = lbound（words）からubound（words）-1
    word = words（wordindex）
    MatchCount = 0
    nextwordindex = wordindex 1からubound（words）の場合
      word = words（nextwordindex）の場合
        MatchCount = MatchCount 1
      ifを終了します
    次のwordindex
    MatchCount> 0の場合
      text = ""
      index = lbound（words）からubound（words）の場合
        text = text＆words（index）
        if（words（index）= word）then
          Cell.Characters（Len（Text）-Len（Word）1、Len（word））。font.color= vbred
        ifを終了します
        Text = Text＆Delimiter
      次
    ifを終了します
  次のWordIndex
End Sub

重複テキストの強調表示（ケースに敏感）

このバージョンは、大文字と小文字を区別します。 「1-aa」、「1-aa」、および「1-aa」は異なると見なされます。

VBAコード（ケースセンシティブ）：

（コードは、ケース非感受性バージョンとほぼ同一です。 HighlightDupeWordsInCellワードセルコールとwords = Split(...)線にLCaseがHighlightDupeWordsInCellしない場合のCaseSensitiveパラメーターのみが異なります。したがって、冗長性を回避するためにCaseSensitiveが省略Trueれています）。

マクロを使用します

1. コードを追加： Excelワークブックを開き、Alt F11を押してVBAエディターを開き、モジュールを挿入し、コードを貼り付けます。マクロ対応のワークブック（.xlsm）として保存します。
2. マクロを実行します：セルを選択し、ALT F8を押し、マクロ（ケースセンシティブまたはケース非感受性）を選択し、[実行]をクリックします。
3. Delimiterを指定します：マクロは、区切り文字（eg、 "、"）のプロンプトをプロンプトします。セルに単語を分離する文字を入力します。

重複したテキストセグメントは赤で強調表示されます。セル内の重複を削除するには、一連のExcelユーティリティから「重複したサブストリングを削除」機能などの専用ツールを使用することを検討してください。

コードのカスタマイズ

• モジュール配置：両方のマクロは、 HighlightDupeWordsInCell Subroutineを呼び出します。このサブルーチンが同じモジュールにあることを確認してください。
• Delimiter：必要に応じて、 InputBoxラインのデフォルトの区切り文字を変更します。
• 色： vbRed別のVBAカラー定数（たとえば、 vbGreen 、 vbBlue ）に変更して、ハイライトカラーを変更します。

この詳細なガイドは、VBAを使用してExcelセル内の重複テキストを効率的に強調表示することができます。実用的なデモンストレーションのために、提供されたサンプルワークブックをダウンロードすることを忘れないでください。

以上がExcelセルの重複テキスト /単語を強調表示する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。