Композитно решење за подцаст 2316 изазов - Екцел савети

Белешка

Ово је један од низа чланака који детаљно описују решења послана за изазов Подцаст 2316.

Након проучавања свих идеја послатих од гледалаца, одабрао сам своје омиљене технике за сваки видео. Моје коначно решење користи ове кораке:

• Добијте податке из именованог опсега
• Избришите два додатна корака додата у Промовисање заглавља и промена типа. Ово спречава ломљење суфикса из четвртине. Хвала Јасону М, Ондреју Малинскыу и Петеру Бартхоломеву на овој идеји.
• Транспонујте
• Промовишите заглавља
• Уклони, горњи редови, топ 5 редова. МФ Вонг, леп трик.
• Замените К1 са _К1. Поновите остале три четвртине. Хвала Јонатхан Цоопер.
• Поделио Делимитер на _. Овај невероватан корак задржава имена у једној колони и помера четвртине у следећу колону. Предложио Фовми, усавршио Јонатхан Цоопер.
• (Ни корака!) Дођите до траке формуле и преименујте колоне у Запослени и Четвртина. Хвала Јосх Јохнсон
• У колони Запослени ништа не замените нулом
• Попунити доле
• У колони Четвртина промените нулу у Тотал. Ова идеја од Мицхаел Карпфена
• Уклони остале колоне. Преименујте Аттриб у Категорија на траци са формулама
• Пивот четврти
• Померите укупан ступац до краја

Ево мог коначног кода:

let Source = Excel.CurrentWorkbook()((Name="UglyData"))(Content), #"Transposed Table" = Table.Transpose(Source), #"Promoted Headers" = Table.PromoteHeaders(#"Transposed Table", (PromoteAllScalars=true)), #"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",(("Category Description", type text), ("Administrative", type number), ("Holiday", Int64.Type), ("PTO/LOA/Jury Duty", Int64.Type), ("Project A", type number), ("Project B", type number), ("Project C", type number))), #"Removed Top Rows" = Table.Skip(#"Changed Type",5), #"Replaced Value" = Table.ReplaceValue(#"Removed Top Rows","Q1","_Q1",Replacer.ReplaceText,("Category Description")), #"Replaced Value1" = Table.ReplaceValue(#"Replaced Value","Q2","_Q2",Replacer.ReplaceText,("Category Description")), #"Replaced Value2" = Table.ReplaceValue(#"Replaced Value1","Q3","_Q3",Replacer.ReplaceText,("Category Description")), #"Replaced Value3" = Table.ReplaceValue(#"Replaced Value2","Q4","_Q4",Replacer.ReplaceText,("Category Description")), #"Split Column by Delimiter" = Table.SplitColumn(#"Replaced Value3", "Category Description", Splitter.SplitTextByDelimiter("_", QuoteStyle.Csv), ("Employee", "Qtr")), #"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",(("Employee", type text), ("Qtr", type text))), #"Replaced Value4" = Table.ReplaceValue(#"Changed Type1","",null,Replacer.ReplaceValue,("Employee")), #"Filled Down" = Table.FillDown(#"Replaced Value4",("Employee")), #"Replaced Value5" = Table.ReplaceValue(#"Filled Down",null,"Total",Replacer.ReplaceValue,("Qtr")), #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Replaced Value5", ("Employee", "Qtr"), "Attribute", "Value"), #"Pivoted Column" = Table.Pivot(#"Unpivoted Other Columns", List.Distinct(#"Unpivoted Other Columns"(Qtr)), "Qtr", "Value", List.Sum), #"Reordered Columns" = Table.ReorderColumns(#"Pivoted Column",("Employee", "Attribute", "Q1", "Q2", "Q3", "Q4", "Total")) in #"Reordered Columns"

Сви поменути у овим чланцима или видео снимцима освајају закрпу за Екцел Гуру. Већ сам послао неколико порука. Ако га не добијете, оставите коментар на видео испод.