Assign

image

(From d In dtData
Group d By k=d(“Transaction_Reference”).toString.Trim Into grp=Group
Where grp.Count >1
Select grp.toList).SelectMany(Function (x) x).CopyToDatatable