Kompozitno rješenje za podcast 2316 izazov - Excel savjeti

Bilješka

Ovo je jedan od niza članaka koji detaljno opisuju rješenja poslana za izazov Podcast 2316.

Nakon proučavanja svih ideja poslanih od gledatelja, odabrao sam svoje omiljene tehnike za svaki video. Moje konačno rješenje koristi ove korake:

• Dohvati podatke iz imenovanog raspona
• Izbrišite dva dodatna koraka dodana u Promoviranje zaglavlja i promjena vrste. To sprječava razbijanje sufiksa iz četvrtine. Zahvaljujemo Jasonu M, Ondřeju Malinskýu i Peteru Bartholomewu na ovoj ideji.
• Transponiraj
• Promovirajte zaglavlja
• Ukloni, gornji redovi, top 5 redaka. MF Wong lijep trik.
• Zamijenite Q1 s _Q1. Ponovite ostale tri četvrtine. Hvala Jonathan Cooper.
• Dijeli graničnik na _. Ovaj nevjerojatan korak zadržava imena u jednom stupcu i premješta četvrtine u sljedeći stupac. Predložio Fowmy, usavršio Jonathan Cooper.
• (Ni koraka!) Dođite do trake formule i preimenujte stupce u Zaposlenik i Četvrtina. Hvala Josh Johnson
• U stupcu Zaposlenik ništa ne zamjenjujte nulom
• Popuniti
• U stupcu Kvartal promijenite nulu u Ukupno. Ova ideja od Michaela Karpfena
• Ukloni ostale stupce. Preimenujte Attrib u Kategorija na traci s formulama
• Pivot četvrti
• Pomaknite ukupni stupac do kraja

Evo mog konačnog koda:

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"

Svi spomenuti u ovim člancima ili videozapisima osvajaju zakrpu programa Excel Guru. Već sam ih poslao nekoliko. Ako ga ne dobijete, ostavite komentar na video ispod.