任意の列で重複データがある場合、条件で１行だけ残したい

こんにちは

列数が多いなら、以下お試しください。

dt = dt.AsEnumerable.GroupBy(Function(r) r("ごはん").ToString).Select(Function(g) dt.Clone.LoadDataRow(g.OrderBy(Function(r) r("仕入先").ToString.Substring(1,1)).First().ItemArray,False)).CopyToDataTable