Excelセルの重複を削除する方法の詳細(xì)な説明

この記事では、Excelセルの重複を見つけて削除する3つの方法を紹介し、自分に合った方法を選択するだけです。

Microsoft Excelは、重複した値または行を削除する際に、さまざまなオプションを提供します。ただし、特定のセル內(nèi)の同じテキストを削除する必要がある場合は、Excelは何も提供しません。ツール、関數(shù)、式なし、何もありません。これは私たちが目標(biāo)を達(dá)成するのを妨げますか？もちろん違います。 Excelに必要な機(jī)能がない場合は、自分で書いてみましょう！

• VBAを使用して、Excelで重複した単語を削除します
• VBAを使用して、重複した文字を削除します
• 究極のスイートを使用して、複數(shù)のセルで重複テキストを削除する

Excelセルの重複した単語を削除する方法

問題：セルに同じ単語またはテキスト文字列があり、2番目とその後のすべての複製を削除する必要があります。

解決策：ユーザー定義の関數(shù)またはVBAマクロをカスタマイズします。

セル內(nèi)の複製を削除するユーザー定義の機(jī)能

セル內(nèi)の重複テキストを削除するには、 removedUpewordsと呼ばれる次のカスタムユーザー定義関數(shù)（UDF）を使用できます。

 function remodevedUpewords（text as string、optional delimiter as string = ""）as string
  オブジェクトとしての辭書辭書
  DIM X、パート
  dictionary = createObject（ "Scripting.Dictionary"）
  dictionary.comparemode = vbtextcompare
  スプリットの各x（テキスト、區(qū)切り文字）
    part = trim（x）
    part  ""およびdictionary.exists（パート）ではない場合
      dictionary.addパーツ、何もありません
    ifを終了します
  次
  dictionary.count> 0の場合
    removededupewords = join（dictionary.keys、delimiter）
  それ以外
    removedupewords = ""
  ifを終了します
  dictionary = Nothingを設(shè)定します
エンド関數(shù)

ワークブックに関數(shù)コードを挿入する方法

上記のコードをExcelに追加するには、次のことを行う必要があります。

1. Alt F11を押して、Visual Basic Editorを開きます。
2. 左ペインで、この作業(yè)を右クリックして、[挿入] > [モジュールを選択]を選択します。
3. 上記のコードをコードウィンドウに貼り付けます。

詳細(xì)については、ExcelにVBAコードを挿入する方法を參照してください。

removedUpewords機(jī)能構(gòu)文

セル內(nèi)の重複テキストを削除する新しく作成された機(jī)能には、次の構(gòu)文があります。

removedupewords（Text、[delimiter]）where：

• テキスト（必須） - 複製テキストを削除する文字列またはセル。
• Delimiter （オプション） - 重複テキストの區(qū)切り文字で區(qū)切られます。省略する場合は、スペースを區(qū)切り文字として使用します。

この関數(shù)は癥例ではないものであり、小文字と大文字は同じ文字として扱われます。

remavedupewords関數(shù)の使用方法

ワークブックに関數(shù)コードを追加した後、Excelの組み込み関數(shù)を使用するなど、式で使用できます。

等記號の後に関數(shù)名の入力を開始するだけで、式インテリジェンスに表示されます。関數(shù)をダブルクリックすると、セルに挿入されます。パラメーターを定義し、クロージングブラケットを入力し、Enterを押して、式が完成します。

たとえば、A2からコンマとスペースで區(qū)切られた重複した単語を削除するには、B2に次の式を入力し、目的の數(shù)のセルにドラッグします。

=RemoveDupeWords(A2, ", ")

その結(jié)果、コンマとスペースで區(qū)切られたユニークな単語やサブストリングのリストを取得します。

コンマを分離したリストを取得したい場合は、デリミタにのみコンマを使用してください。

=RemoveDupeWords(A2, ",")

ソースデータがスペースで區(qū)切られている場合、2番目のパラメーターは「」または省略する必要があります。

=RemoveDupeWords(A2)

他のExcel機(jī)能と同様に、UDFはソースデータが変更されると自動的に再計算されるため、結(jié)果は常に最新になります。

複數(shù)のセルの重複テキストを一度に削除するVBAマクロ

複數(shù)のセルの複製テキストを一度に削除する場合は、マクロのremovedupewords関數(shù)を呼び出すことができます。この場合、區(qū)切り文字はハードコードされており、デリミッターが変更されるたびにマクロのコードを更新する必要があります。または、スペース、コンマ、コンマ、スペースなどの最も一般的な區(qū)切り文字のコードバリエーションを作成し、MacroSに削除されたupesdelimspaceなどの意味のある名前を付けることができます。

マクロコードは次のとおりです。

 public sub remodevedupewords2（）
  範(fàn)囲としての薄暗いセル
  Application.Selectionの各セルについて
    cell.value = removedupewords（cell.value、 "、"）
  次
End Sub

上記のコードでは、セパレーターはコンマとスペースです。別の區(qū)切り文字を使用するには、次のコード行の他の文字に「」、「」を置き換えます。

cell.Value = RemoveDupeWords(cell.Value, ", ")

知らせ。マクロが適切に機(jī)能するには、そのコードとremavedupewords関數(shù)のコードを同じモジュールに配置する必要があります。

マクロの使用方法

マクロコードを獨自のワークブックに挿入するか、コードを含むサンプルワークブックを開き、次の手順を?qū)g行してマクロを?qū)g行します。

1. 複製テキストを削除するセルの範(fàn)囲を選択します。
2. Alt F8を押して、マクロダイアログボックスを開きます。
3. マクロのリストで、 removedupewords2を選択します。
4. [実行]をクリックします。

詳細(xì)については、Excelでマクロを?qū)g行する方法をご覧ください。

知らせ。マクロの操作は控えめではないため、マクロを使用する前にワークブックを保存することを強(qiáng)くお勧めします。このようにして、何かがうまくいかない場合は、単純にワークブックを閉じて再開すると、以前の場所に戻ります。または、マクロの影響を受ける可能性のあるシートのみをコピーすることもできます。

セル內(nèi)の重複した文字を削除する方法

問題：セルに複數(shù)の同一の文字があり、各セルには特定の文字の単一の発生のみが含まれている必要があります。

解決策：ユーザー定義の関數(shù)またはVBAマクロをカスタマイズします。

重複した文字を削除するユーザー定義の関數(shù)

セル內(nèi)の重複した文字を削除するには、文字の最初の発生のみを維持するために、 removedUpeCharsと呼ばれる次のカスタムユーザー定義関數(shù)を使用できます。

関數(shù)削除されたupeChars（文字列としてのテキスト）文字列として
  オブジェクトとしての辭書辭書
  文字列としてのDIMチャー
  文字列としての薄暗い結(jié)果
  dictionary = createObject（ "Scripting.Dictionary"）
  i = 1 to len（テキスト）
    char = mid（text、i、1）
    dictionary.exists（char）ではない場合
      dictionary.add char、何もありません
      結(jié)果= result＆char
    ifを終了します
  次
  removedupeChars = result
  dictionary = Nothingを設(shè)定します
エンド関數(shù)

ワークブックに関數(shù)コードを挿入するには、手順は前の例とまったく同じです。

removedUpeChars関數(shù)構(gòu)文

このカスタム関數(shù)の構(gòu)文は、可能な限り単純です - 必要なパラメーターは1つだけです。

削除されたupeChars（テキスト）テキストは文字列またはセルであり、そこから重複した文字を削除します。

この関數(shù)は大文字と小文字であり、小文字と大文字を異なる文字として扱います。

removedupeChars関數(shù)の使用方法

removedupewordsについて私たちが言ったことはすべて、 remavedupecharsで動作します。したがって、あまりにも多くの理論がなければ、例にまっすぐに行きましょう。

列A（A2から始まる）から重複した文字を削除するには、B2にこの式を入力し、以下にコピーします。

=RemoveDupeChars(A2)

以下の図に示すように、この関數(shù)は、文字、數(shù)字、特別なシンボルなど、さまざまな文字タイプをうまく処理します。

ヒント。キャラクターがスペース、コンマ、ハイフンなどの特定の區(qū)切り文字によって互いに分離されている場合は、前の例に示す削除された機(jī)能を使用してください。

セル內(nèi)の同じ文字でVBAマクロを削除します

removedUpewordsのように、 removedupeChars関數(shù)はマクロでも呼び出すことができます。

 public sub remodevedupechars2（）
  範(fàn)囲としての薄暗いセル
  Application.Selectionの各セルについて
    cell.value = removedupeChars（cell.value）
  次
End Sub

このUDFはセパレータを使用していないため、コードで調(diào)整する必要はありません。

知らせ。マクロが適切に機(jī)能するには、そのコードと削除されたudfのコードをVBAエディターの同じモジュールに配置する必要があります。

マクロの使用方法

マクロコードをワークブックに挿入するか、コードを含むサンプルワークブックを開いたと仮定して、次のようにマクロを起動します。

1. 重複した文字を削除するセルの範(fàn)囲を選択します。
2. Alt F8を押して、マクロダイアログボックスを開きます。
3. マクロのリストで、 removedupeChars2を選択します2。
4. [実行]をクリックします。

Ultimate Suiteを使用して、重複したサブストリングを削除します

このチュートリアルの冒頭で、Microsoft Excelにはセル內(nèi)の重複を削除する機(jī)能が組み込まれていないことが言及されています。しかし、私たちの究極のスイートはできます！

Dedupe GroupにあるEvainBitsデータタブのDuplicate Remover Dropdownメニューで見つけることができます。削除されたサブストリングの削除オプションがExcelに表示されない場合は、最新バージョンのUltimate Suiteがインストールされていることを確認(rèn)してください（こちらから無料トライアルがあります）。

重複した単語またはテキストを5秒で複數(shù)のセルから削除するには（各ステップ）、次のことを行う必要があります。

1. ソースデータを選択して、削除サブストリングツールを削除します。
2. セパレーターを指定します。
3. 連続した區(qū)切り文字を1つ（デフォルト）として扱うかどうかを定義します。
4. ケースに敏感またはケースに依存しない検索を?qū)g行することを選択します。
5. [削除]をクリックします。

完成！ VBAや式は必要ありません。迅速かつ正確な結(jié)果です。

この強(qiáng)力なアドインの詳細(xì)については、ホームページにアクセスしてください。またはさらに良いことに、以下の評価バージョンをダウンロードして、試してみてください！

これは、セル內(nèi)の重複テキストを削除する方法です。お読みいただきありがとうございます。來週、私たちのブログでお會いしましょう！

ダウンロード可能なリソース

セル內(nèi)の重複を削除する例（.xlsmファイル）究極のスイート14日間のフル機(jī)能バージョン（.exeファイル）

以上がExcelのセル內(nèi)で複製を削除する方法の詳細(xì)內(nèi)容です。詳細(xì)については、PHP 中國語 Web サイトの他の関連記事を參照してください。