I am close. Would this presentation work for you
Data Range
|
A |
B |
C |
D |
E |
1 |
Custom |
Custom.1 |
Custom.2 |
Custom.3 |
Custom.4 |
2 |
item001 |
item002 |
item003 |
item004 |
item005 |
3 |
item006 |
item007 |
item008 |
item009 |
item010 |
4 |
item011 |
item012 |
item013 |
item014 |
item015 |
5 |
item016 |
item017 |
item018 |
item019 |
item020 |
6 |
item021 |
item022 |
item023 |
item024 |
item025 |
7 |
item026 |
item027 |
item028 |
item029 |
item030 |
8 |
item031 |
item032 |
item033 |
item034 |
item035 |
9 |
item036 |
item037 |
item038 |
item039 |
item040 |
10 |
item041 |
item042 |
item043 |
item044 |
item045 |
11 |
item046 |
item047 |
item048 |
item049 |
item050 |
12 |
item051 |
item052 |
item053 |
item054 |
item055 |
13 |
item056 |
item057 |
item058 |
item059 |
item060 |
14 |
item061 |
item062 |
item063 |
item064 |
item065 |
15 |
item066 |
item067 |
item068 |
item069 |
item070 |
16 |
item071 |
item072 |
item073 |
item074 |
item075 |
17 |
item076 |
item077 |
item078 |
item079 |
item080 |
18 |
item081 |
item082 |
item083 |
item084 |
item085 |
19 |
item086 |
item087 |
item088 |
item089 |
item090 |
20 |
item091 |
item092 |
item093 |
item094 |
item095 |
21 |
item096 |
item097 |
item098 |
item099 |
item100 |
Code:
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"orig_col", type text}}),
#"Added Index" = Table.AddIndexColumn(#"Changed Type", "Index", 0, 1, Int64.Type),
#"Inserted Modulo" = Table.AddColumn(#"Added Index", "Modulo", each Number.Mod([Index], 5), type number),
#"Removed Columns" = Table.RemoveColumns(#"Inserted Modulo",{"Index"}),
#"Added Custom" = Table.AddColumn(#"Removed Columns", "Custom", each if[Modulo]=0 then [orig_col] else null),
#"Added Custom1" = Table.AddColumn(#"Added Custom", "Custom.1", each if[Modulo]=1 then[orig_col] else null),
#"Added Custom2" = Table.AddColumn(#"Added Custom1", "Custom.2", each if[Modulo]=2 then[orig_col] else null),
#"Added Custom3" = Table.AddColumn(#"Added Custom2", "Custom.3", each if [Modulo]= 3 then[orig_col] else null),
#"Added Custom4" = Table.AddColumn(#"Added Custom3", "Custom.4", each if [Modulo]=4 then [orig_col] else null),
#"Filled Up" = Table.FillUp(#"Added Custom4",{"Custom.1", "Custom.2", "Custom.3", "Custom.4"}),
#"Filtered Rows" = Table.SelectRows(#"Filled Up", each ([Custom] <> null)),
#"Removed Columns1" = Table.RemoveColumns(#"Filtered Rows",{"orig_col", "Modulo"})
in
#"Removed Columns1"
Bookmarks