複数行にわたる通勤ルートを、他ファイルに1行で記載する。

日本 フォーラム
4

こんにちは

一例として以下いかがでしょうか

image
image905×1691 48.3 KB 

dtResult = dt.AsEnumerable.GroupBy(Function(r) r(4).ToString).Select(Function(g) dtResult.Clone.LoadDataRow({g.Key,g.Key,g.First().item(0),g.First().item(5),"","","","",""}.Concat(g.SelectMany(Function(r) r.ItemArray.Skip(10))).ToArray,False)).CopyToDataTable

Sample20220830-1.zip (18.8 KB)

同一名ヘッダーが許容されないので、ヘッダー名を少し変更しています。