重複があれば、すべてを削除したい

日本 フォーラム
1

「重複行を削除」アクティビティを使うと
重複するデータが3つあれば
2つを削除して
1つだけ残してくれますが、
3つすべてを削除したいです。

重複するデータがあれば
それを抽出して
抽出したデータにフラグを立てて（列に「重複あり」と書き込むなど…）
フラグがある行をフィルターで省く…
なども考えましたが
「抽出して、フラグを立てる」方法がわかりません。

こちらも試してみました。
しかしExcel01.xlsxとExcel02.xlsxのように
データ数が同じでないため
上手くいきませんでした。

ご教示いただけると幸いです。
よろしくおねがいします。

【取り込みデータ】
|ユーザーID|メールアドレス|氏名|
|1111|aa@aa.com|山田テスト|
|2222|bb@aa.com|佐藤テスト|
|3333|cc@aa.com|鈴木テスト|
|4444|dd@aa.com|田中テスト|
|5555|ee@aa.com|渡辺テスト|
|1111|aa@aa.com|山田テスト|
|2222|bb@aa.com|佐藤テスト|

※ユーザーID：1111と2222が重複してます。

【欲しい結果-1】
|ユーザーID|メールアドレス|氏名|
|3333|cc@aa.com|鈴木テスト|
|4444|dd@aa.com|田中テスト|
|5555|ee@aa.com|渡辺テスト|

ユーザーID：1111と2222が削除されています。

【欲しい結果-2】
|ユーザーID|メールアドレス|氏名|重複チェック|
|1111|aa@aa.com|山田テスト|重複あり|
|2222|bb@aa.com|佐藤テスト|重複あり|
|3333|cc@aa.com|鈴木テスト||
|4444|dd@aa.com|田中テスト||
|5555|ee@aa.com|渡辺テスト||
|1111|aa@aa.com|山田テスト|重複あり|
|2222|bb@aa.com|佐藤テスト|重複あり|

または、このように
『重複チェック』列に「重複あり」と書き込みができれば
フィルターで省くことができるかと考えました。

2

こんにちは

ダミーデータでも結構ですので、具体的な入力（ファイル）と期待する結果を共有いただけると良いかと思います。

3

ありがとうございます。

取り込むデータと
欲しい結果を追記しました。

アドバイスいただければ幸いです。
よろしくおねがいします。

4

こんにちは

要件についてですが、ユーザーID列での重複を確認すればOKですか？あるいは、すべての列での一致を確認する必要がありますか？

5

ユーザーID列での重複を確認すればOKですか？

はい！
「ユーザーID列」だけ確認できれば大丈夫です。

6

こんにちは

以下お試しください。

dt = dt.AsEnumerable.Where(Function(r) dt.AsEnumerable.Count(Function(r2) r("ユーザーID").ToString=r2("ユーザーID").ToString)=1).CopyToDataTable
1 Like
7

すごい！
ありがとうございます！

希望通りの結果となりました。

本当にありがとうございました！！

8

This topic was automatically closed 3 days after the last reply. New replies are no longer allowed.