Excelのセル内で複製を削除する方法

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

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

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

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

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

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

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

セル内の複製を削除するユーザー定義の機能

セル内の重複テキストを削除するには、 removedUpewordsと呼ばれる次のカスタムユーザー定義関数（UDF）を使用できます。

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

ワークブックに関数コードを挿入する方法

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

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

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

removedUpewords機能構文

セル内の重複テキストを削除する新しく作成された機能には、次の構文があります。

removedupewords（Text、[delimiter]）where：

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

この関数は症例ではないものであり、小文字と大文字は同じ文字として扱われます。

remavedupewords関数の使用方法

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

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

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

=RemoveDupeWords(A2, ", ")

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

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

=RemoveDupeWords(A2, ",")

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

=RemoveDupeWords(A2)

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

複数のセルの重複テキストを一度に削除するVBAマクロ

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

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

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

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

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

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

マクロの使用方法

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

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

詳細については、Excelでマクロを実行する方法をご覧ください。

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

セル内の重複した文字を削除する方法

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

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

重複した文字を削除するユーザー定義の関数

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

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

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

removedUpeChars関数構文

このカスタム関数の構文は、可能な限り単純です - 必要なパラメーターは1つだけです。

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

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

removedupeChars関数の使用方法

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

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

=RemoveDupeChars(A2)

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

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

セル内の同じ文字でVBAマクロを削除します

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

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

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

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

マクロの使用方法

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

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

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

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

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

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

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

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

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

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

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

セル内の重複を削除する例（.xlsmファイル）究極のスイート14日間のフル機能バージョン（.exeファイル）

以上がExcelのセル内で複製を削除する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。