重複データを抽出したいです

[111561 (SHINOZAKI KAORI)]

いつもありがとうございます。

データテーブルで
特定の列の中に
同じデータが2つあるとします。

その2つのデータを抽出したいです。

要は「重複行を削除」の真逆で
「重複行を残したい」のです。

一つしかないデータは削除したいです。

どのような方法で可能でしょうか？
ご教示よろしくおねがいします。

[Karuna (Karuna Devanagavi)]

@111561

Try this

1. Read Range - Output - dtSheet1

2. Assign Activity
   dtNew (Type : Datatable ) – dtSheet1.AsEnumerable().GroupBy(Function(a)
   a.Field(Of String)(“Master Bill”)).Select(Function(b) b.First).CopyToDataTable()

   (“Master Bill” → Your Column Name)

3. Write Range – dtNew → You will get only unique rows.

[Yoichi]

こんにちは

@111561

要は「重複行を削除」の真逆で
「重複行を残したい」のです。

以下お試しください

dt = dt.AsEnumerable.Where(Function(r) dt.AsEnumerable.Count(Function(r2) r2("Column1").ToString=r("Column1").ToString)>1).CopyToDataTable()

[111561 (SHINOZAKI KAORI)]

@Yoichi

dt = dt.AsEnumerable.Where(Function(r) dt.AsEnumerable.Count(Function(r2) r2("Column1").ToString=r("Column1").ToString)>1).CopyToDataTable()

It’s done!
Thank you!

[111561 (SHINOZAKI KAORI)]

できました！
ありがとうございます！