Σύνθετη λύση στο Podcast 2316 Challenge - Excel Συμβουλές

Σημείωση

Αυτό είναι ένα από μια σειρά άρθρων που περιγράφουν λεπτομερώς τις λύσεις που αποστέλλονται για την πρόκληση Podcast 2316.

Μετά τη μελέτη όλων των ιδεών που έστειλαν οι θεατές, έχω επιλέξει τις αγαπημένες μου τεχνικές από κάθε βίντεο. Η τελική μου λύση χρησιμοποιεί αυτά τα βήματα:

• Λήψη δεδομένων, από το εύρος ονομάτων
• Διαγράψτε τα δύο επιπλέον βήματα που προστέθηκαν στην Προώθηση κεφαλίδων και στον τύπο αλλαγής. Αυτό αποτρέπει την ανάγκη να σπάσει το επίθημα από τα τέταρτα. Χάρη στους Jason M, Ondřej Malinský και Peter Bartholomew για αυτήν την ιδέα.
• Μεταθέτω
• Προώθηση κεφαλίδων
• Κατάργηση, κορυφαίες σειρές, κορυφαίες 5 σειρές. Ωραίο κόλπο από τον MF Wong.
• Αντικαταστήστε το Q1 με το _Q1. Επαναλάβετε για άλλα τρία τέταρτα. Ευχαριστώ Jonathan Cooper.
• Διαχωρισμός από οριοθέτη στο _. Αυτό το καταπληκτικό βήμα διατηρεί τα ονόματα σε μια στήλη και μετακινεί τα τέταρτα στην επόμενη στήλη. Προτείνεται από τον Fowmy, τελειοποιήθηκε από τον Jonathan Cooper.
• (Όχι ένα βήμα!) Προσεγγίστε τη Formula Bar και μετονομάστε τις στήλες σε Υπάλληλος και Τρίμηνο. Ευχαριστώ Josh Johnson
• Στη στήλη Υπάλληλος, αντικαταστήστε τίποτα με μηδενικό
• Συμπληρώστε
• Στη στήλη Τρίμηνο, αλλάξτε το μηδέν σε Σύνολο. Αυτή η ιδέα από τον Michael Karpfen
• Κατάργηση περιστροφής άλλων στηλών. Μετονομασία Attrib σε Category στη γραμμή τύπων
• Συγκεντρωτικά τέταρτα
• Μετακίνηση συνολικής στήλης στο τέλος

Εδώ είναι ο τελικός μου κωδικός:

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"

Όλοι που αναφέρονται σε αυτά τα άρθρα ή βίντεο κερδίζουν μια ενημερωμένη έκδοση κώδικα του Excel Guru. Έχω ήδη στείλει πολλά. Εάν δεν το λάβετε, αφήστε ένα σχόλιο στο παρακάτω βίντεο.