メインコンテンツへスキップ

重複を削除し、残りの行の値をExcelに保持するにはどうすればよいですか?

Excelでは、スクリーンショット1に示すように、重複の削除機能を適用すると、重複する値がすべて削除され、上に移動します。 ただし、場合によっては、重複を削除したいが、スクリーンショット2に示すように、残りの行の値は保持したい場合があります。 さて、この場合、重複を削除し、残りをExcelに保持するためのいくつかのトリックを紹介します。

docは重複を削除し、残りを保持します1 docは重複を削除し、残りを保持します2

重複を削除しますが、残りの行の値はフィルターで保持します(3ステップ)

重複を削除しますが、残りの行の値はVBAで保持します(4ステップ)

重複を削除しますが、Kutools for Excelで残りの行の値を保持します(2ステップ)良いアイデア3


重複を削除しますが、残りの行の値はFilterで保持します

数式とフィルター機能を使用すると、重複をすばやく削除しながら、休むことができます。

1.データ範囲の横にある空白のセルを選択します(たとえば、D2)。数式を入力します。 = A3 = A2、自動入力ハンドルを必要なセルまでドラッグします。 スクリーンショットを参照してください:
docは重複を削除し、残りを保持します3

2.数式セルを含むすべてのデータ範囲を選択し、をクリックします 且つ > フィルタ 有効にする フィルタ 関数。 スクリーンショットを参照してください:
docは重複を削除し、残りを保持します4

3.をクリックします。 フィルタアイコン 列D(数式列)で、チェックします ツアードロップダウンリストのE、スクリーンショットを参照してください。
docは重複を削除し、残りを保持します5

4。 クリック OK、次にすべての重複がリストされ、重複する値をすべて選択して、を押します。 削除 それらを削除するためのキー。 スクリーンショットを参照してください:
docは重複を削除し、残りを保持します6

5。 クリック 且つ > フィルタ 無効にする フィルタ、必要に応じて数式を削除します。 すべての重複が削除され、残りの値が行に保持されていることがわかります。
docは重複を削除し、残りを保持します7


重複を削除しますが、残りの行の値はVBAで保持します

Excelには、重複を削除しても残りの行の値を保持できるVBAコードがあります。

1。 押す Altキー+ F11 表示するキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュールe、以下のコードをに貼り付けます モジュール.

VBA:重複を削除しますが、残りの行の値は保持します

Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918

    Dim xRow As Long
    Dim xCol As Long
    Dim xrg As Range
    Dim xl As Long
    On Error Resume Next
    Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

    xRow = xrg.Rows.Count + xrg.Row - 1
    xCol = xrg.Column
    'MsgBox xRow & ":" & xCol
    Application.ScreenUpdating = False
    For xl = xRow To 2 Step -1
        If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
            Cells(xl, xCol) = ""
        End If
    Next xl
    Application.ScreenUpdating = True
    
End Sub

docは重複を削除し、残りを保持します8

3。 押す F5 コードを実行するためのキーを押すと、ダイアログがポップアップして、重複する値を削除する範囲を選択するように促します。 スクリーンショットを参照してください:
docは重複を削除し、残りを保持します9

4。 クリック OK、重複する値が選択から削除され、空白のセルが残ります。
docは重複を削除し、残りを保持します10


重複を削除しますが、残りの行の値はKutools forExcelで保持します

あなたが持っている場合 Excel用のKutoolsl –便利で強力なアドインツールがインストールされているため、重複をすばやく削除できますが、残りの値または行の値はXNUMXつの方法で保持できます。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

インストールした後 Kutools for Excel、以下のようにしてください:(今すぐExcel用のKutoolsを無料でダウンロードしてください!)

方法1同じセルをマージする(2ステップ)

1.重複する値を選択し、をクリックします クツール > マージ&スプリット > 同じセルをマージする。 スクリーンショットを参照してください:
docは重複を削除し、残りを保持します11

2.次に、重複する値がXNUMXつのセルにマージされました。 そしてクリック ホーム > マージ&センター > セルをマージ解除して分割します。 スクリーンショットを参照してください:
docは重複を削除し、残りを保持します12

これで、結果は次のように表示されます。
docは重複を削除し、残りを保持します13

方法2重複セルと一意セルを選択する(4ステップ)

1.重複を削除するデータのリストを選択し、をクリックします クツール > 選択 > 重複セルと一意セルを選択します。 スクリーンショットを参照してください:
docは重複を削除し、残りを保持します14

2。 の中に 重複セルと一意セルを選択します ダイアログ、チェック 重複(最初のものを除く) 内のオプション ルール セクション。 スクリーンショットを参照してください:
docは重複を削除し、残りを保持します15

3。 クリック Ok、選択された重複の数を通知するダイアログがポップアップ表示されます。をクリックします。 OK それを閉じるために。 スクリーンショットを参照してください:
docは重複を削除し、残りを保持します16

4.次にを押します 削除 キーを押して、選択した重複値を削除します。

docは重複を削除し、残りを保持します17

ヒント:   Kutools for Excelさん 高度な結合行 ユーティリティを使用すると、以下のスクリーンショットに示すように、重複した値を結合して別の列で計算を行うことができます。 30日間は制限なく全機能をご利用いただけます。今すぐダウンロードして無料トライアルをお試しください。
docは重複を削除し、残りを保持します18

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
iNFORMATION IS VERY USEFUL.SAVED A LOT OF TIME

THANKS.
This comment was minimized by the moderator on the site
It help me after long search thank bro
This comment was minimized by the moderator on the site
Thank you so much! This was very helpful!!
This comment was minimized by the moderator on the site
i would use the formula =A3<>A2 (not equal to ) so that it show up on top vs. last one on bottom.
This comment was minimized by the moderator on the site
i tried the formula =A2=A1, it also got the result of show up on top.
This comment was minimized by the moderator on the site
i tried the formula =A1=A2, it also get the same result of show up on top
This comment was minimized by the moderator on the site
the true false really helped!
This comment was minimized by the moderator on the site
The True/False solution is a smart trick. Thanks
This comment was minimized by the moderator on the site
Is it possible to merge the like cells without the Kutools add-in?
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
In the first method, instead of =A3=A2, you can do =A2=A1 to keep the first instance and delete the rest of the duplicates.
This comment was minimized by the moderator on the site
yes it works
This comment was minimized by the moderator on the site
Thank you for this comment! Exactly what I was looking for!
This comment was minimized by the moderator on the site
Thank you for this tutorial, it saves me from tons of work removing duplicates.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations