Hi,
How about the following?
dtResult = dt.AsEnumerable.SelectMany(Function(r) Enumerable.Range(1,3).Select(Function(i) dtResult.LoadDataRow({"",r("Company"),r("Code")}.Concat( r("Employee ("+i.toString+")").ToString.Split({"/"c})).ToArray,False))).Where(Function(r) Not String.IsNullOrEmpty(r("Employee Name").ToString)).CopyToDataTable
Sample20230421-2Lv2.zip (21.2 KB)
Regards,