ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

重複は削除するが、Excelでは最初のインスタンスを保持する方法

ワークシートに重複を含む値のリストがあるとしたら、重複は削除する必要がありますが、重複した値が見つかる場所の最初の行は保持する必要があります。 この記事では、重複を削除する2つの方法を紹介しますが、Excelでは最初のインスタンスを維持します。

重複を削除しますが、VBAコードで最初のインスタンスを維持します

重複を削除しますが、Kutools for Excelで最初のインスタンスを維持します


リスト内のすべての重複または一意の値を簡単に強調表示する

ライブストリームイベント開始時間 Kutools for Excel's Duplicate&Unique Cellsを選択 ユーティリティを使用すると、Excelのリスト内のすべての複製またはuqique値をすばやくハイライト表示できます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 自由に60日に制限なしで試してみてください。 今すぐ無料トライアルをダウンロードする


重複を削除しますが、VBAコードで最初のインスタンスを維持します


以下のVBAコードを実行すると、重複は削除されますが、最初のインスタンスは列に保持されます。

1。 押す 他の + F11 を開く アプリケーション用Microsoft Visual Basic ダイアログボックス。

2。 の中に アプリケーション用Microsoft Visual Basic ダイアログボックスで、をクリックします。 インセット > モジュール。 次に、下のコードをコピーしてコードウィンドウに貼り付けます。

VBAコード:重複は削除しますが、最初のインスタンスは保持します

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3。 押す F5 コードを実行するキー。 ポップアップで KutoolsforExcel ダイアログボックスで重複を削除する範囲を選択し、 OK ボタン。 スクリーンショットを見る:

これで、選択した列範囲から最初のレコードが削除される以外は、すべての重複行が表示されます。 スクリーンショットを見る:


重複を削除しますが、Kutools for Excelで最初のインスタンスを維持します

VBAコードの横には、 Duplicate&Unique Cellsを選択 の有用性 Kutools for Excel アドインを使用すると重複は簡単に削除できますが、最初のインスタンスはExcelに保持されます。

Kutools for Excel :300以上の便利なExcelアドイン、 60日以内に自由に試してみてください.

1。 重複を削除するが、最初のインスタンスは保持する範囲を選択します。 次に、をクリックします クツール > 選択します > Duplicate&Unique Cellsを選択。 スクリーンショットを見る:

2。 の中に Duplicate&Unique Cellsを選択 ダイアログボックスで 重複(1stを除く) オプションを選択して、 OK ボタン。 スクリーンショットを見る:

docはduplicates1を削除します

3。 以下では Duplicate&Unique Cellsを選択 ダイアログボックスで、をクリックします。 OK.

docはduplicates1を削除します

4。 今度は、最初のインスタンスを除いて重複が選択されます。 削除 キーを押して選択した複製を削除します。

:重複する行を削除する場合は、チェックするだけです 行全体を選択 内のオプション Duplicate&Unique Cellsを選択 ダイアログボックスを開き、 削除 コマンドを使用して、重複行全体を削除します。

先端。このユーティリティの無料トライアルをご希望の場合は、 自由にソフトウェアをダウンロードする まず、上記の手順に従って操作を行ってください。


重複を削除しますが、Kutools for Excelで最初のインスタンスを維持します

Kutools for Excel 300以上の便利なExcelツールが含まれています。 自由に60日に制限なしで試してみてください。 今すぐ無料トライアルをダウンロードしてください!



Excelの推奨生産性向上ツール

Kutools for Excelを使用すると、いつでも作業を終わらせることができ、群衆から目立つようにすることができます。

  • 300作業シナリオ用に設計された1500以上の強力な高度な機能により、生産性を70%向上させ、家族の世話をしたり人生を楽しんだりするための時間を増やすことができます。
  • 数式やVBAコードを暗記する必要はもうありません。これから脳を休ませてください。
  • 3分でExcelのエキスパートになる、複雑で繰り返しのある操作が数秒で可能
  • 毎日何千ものキーボードとマウスの操作を減らし、今や職業病に別れを告げる。
  • 110,000の非常に効果的な人々と300 +世界的に有名な企業の選択。
  • 60-dayフル機能無料トライアル。 60日の返金保証。 2年間の無料アップグレードとサポート。

ブラウザのタブよりはるかに強力な、タブ付きのブラウジングと編集をMicrosoft Officeにもたらします。

  • Officeタブは、Word、Excel、PowerPoint、およびその他のOfficeアプリケーション(発行元、アクセス、Visio、およびプロジェクト)用に設計されています。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    lelouch · 2 years ago
    I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell

    John I Red
    John I Blue
    John I Yellow

    Joe I Red
    Joe I Blue
    Joe I Yellow

    and turn it into

    John I Red
    I Blue
    I Yellow

    Joe I Red
    I Blue
    I Yellow

    Can you help on just keeping the first duplicate in a single cell only?