Podcast 2316 väljakutse liitlahendus - Exceli näpunäited

Märge

See on üks artiklite seeria, mis kirjeldab üksikasjalikult Podcast 2316 väljakutsele saadetud lahendusi.

Pärast kõigi vaatajate saadetud ideede uurimist olen igast videost valinud oma lemmikvõtted. Minu lõplikus lahenduses kasutatakse neid samme:

• Hankige andmeid nimega vahemikust
• Kustutage jaotises Reklaami päised ja tüübi muutmine lisatud kaks täiendavat sammu. See hoiab ära selle, et tuleb sufiks veeranditest lahti murda. Täname selle idee eest Jason M-d, Ondřej Malinskýt ja Peter Bartholomewit.
• Ülekandmine
• Reklaamige päiseid
• Eemalda, ülemine rida, 5 parimat rida. Mõnus trikk MF Wongilt.
• Asendage Q1 väärtusega _Q1. Korda veel kolm neljandikku. Tänud Jonathan Cooper.
• Jaotatud eraldaja poolt _. See hämmastav samm hoiab nimed ühes veerus ja veerandid liigub järgmisesse veergu. Pakkus välja Fowmy, täiustas Jonathan Cooper.
• (Pole samm!) Jõudke valemiribale ja nimetage veerud ümber Töötajaks ja Kvartaliks. Aitäh Josh Johnson
• Veerus Töötaja asendage midagi nulliga
• Täitke
• Muutke veerus Kvartal null väärtuseks Kokku. See idee Michael Karpfenilt
• Muude veergude tühistamine. Nimeta valemiribal kategooria atribuut ümber
• Pöördkvartalid
• Teisalda veerg Kokku lõpuni

Siin on minu lõplik kood:

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"

Kõik nendes artiklites või videos mainitud võidavad Exceli Guru plaastri. Olen juba mitu välja saatnud. Kui te seda ei saa, jätke allolevale videole kommentaar.