Adding blank rows in an excel

[yash.choursia]

Hi Team,

I want to add blank rows after particular value ends in a column.

Input:

Output:

Please help.

[yash.choursia]

@Yoichi Any help regarding this issue?

[rlgandu (Rajyalakshmi Gandu)]

@yash.choursia

Dt=(From row In inputDataTable.AsEnumerable()
Let rank = row("Rankings").ToString()
Let count = inputDataTable.AsEnumerable().Count(Function(r) r("Rankings").ToString() = rank)
Let newRow = If(count >= 1 AndAlso row.Equals(inputDataTable.AsEnumerable().Last(Function(r) r("Rankings").ToString() = rank)), inputDataTable.NewRow(), Nothing)
Select row, newRow).SelectMany(Function(x) If(x.newRow IsNot Nothing, {x.row, x.newRow}, {x.row})).CopyToDataTable()

[Yoichi]

Hi,

FYI, another approach:

dt = dt.AsEnumerable.GroupBy(Function(r) r("Ranking").ToString).SelectMany(Function(g) g.Concat({dt.NewRow})).CopyToDataTable

Sample
Sample20240202-2.zip (8.6 KB)

Regards,