Split Excel sheet into multiple sheets and rename sheets

Help Activities
, ,
1

InOutExcel.xlsx (12.4 KB)

HI,

May i get help to split excel sheet in multiple sheet based on row value , sample is attached . 1st sheet is input and rest is output required.

e.g. if col contains some value from their to the next appearance it should be moved to next sheet and sheet name should be that value… skipping value line …
pls check attached file

TIA.

2

Hi,

Can you try the following sample?

image
image1122×1450 47.8 KB

listIdx = dt1.AsEnumerable.Where(Function(r) r(0).ToString.Length=1).Select(Function(r) dt1.ROws.IndexOf(r)).ToList
dtMain = dt1.AsEnumerable.Where(Function(r,i) listIdx.Contains(i)).CopyToDataTable

arrDt = Enumerable.Range(0,listIdx.Count-1).Select(Function(idx,i)  dt1.AsEnumerable.Skip(listIdx(i)+1).Take(listIdx(i+1)-listIdx(i)-1).CopyToDataTable).ToArray

Sample
Sample20231012-4L.zip (12.4 KB)

Regards,

1 Like
3

@Yoichi ,

Thanks, a lot!!!
This solution working exactly as required.

4

This topic was automatically closed 3 days after the last reply. New replies are no longer allowed.