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

Excelの條件付きフォーマットは、単一または複數(shù)の列、連続した重複、またはキー列に基づいた行全體で、最初の発生を伴う、またはそれなしで、さまざまな方法で重複を強(qiáng)調(diào)表示することに優(yōu)れています。ただし、単一のセル內(nèi)の重複テキストセグメントを強(qiáng)調(diào)する機(jī)能がありません。この制限では、マクロの使用が必要です。

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

重複した単語の強(qiáng)調(diào)表示（ケース非感受性）

このマクロは、大文字に関係なく、赤いフォントを使用してセル內(nèi)の重複した単語を強(qiáng)調(diào)します。 「オレンジ」、「オレンジ」、「オレンジ」は同一と扱われます。

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

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

Sub HighlightDupewordsincell（範(fàn)囲としてのセル、string = "" as optional delimiter as string、optional cassensitive as boolean = true）
  文字列としての薄暗いテキスト
  dim words（）as string
  文字列としての薄暗い単語
  dim wordindex、matchcount、positionintextとしてのpositionintext
  CaseSensitiveの場(chǎng)合
    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）の場(chǎng)合
      word = words（nextwordindex）の場(chǎng)合
        MatchCount = MatchCount 1
      ifを終了します
    次のwordindex
    MatchCount> 0の場(chǎng)合
      text = ""
      index = lbound（words）からubound（words）の場(chǎng)合
        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

重複テキストの強(qiáng)調(diào)表示（ケースに敏感）

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

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

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

マクロを使用します

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

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

コードのカスタマイズ

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

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

以上がExcelセルの重複テキスト /単語を強(qiáng)調(diào)表示する方法の詳細(xì)內(nèi)容です。詳細(xì)については、PHP 中國(guó)語 Web サイトの他の関連記事を參照してください。