Podcast 2316 Mücadelesine Birleşik Çözüm - Excel İpuçları

Not

Bu, Podcast 2316 yarışması için gönderilen çözümleri ayrıntılarıyla anlatan bir dizi makaleden biridir.

İzleyicilerden gönderilen tüm fikirleri inceledikten sonra her videodan en sevdiğim teknikleri seçtim. Son çözümüm şu adımları kullanıyor:

• Adlandırılmış Aralıktan Veri Alın
• Yükseltme Başlıkları ve Değişiklik Türü'ne eklenen iki ekstra adımı silin. Bu, son ekin çeyreklerden kırılması gerekliliğini önler. Bu fikir için Jason M, Ondřej Malinský ve Peter Bartholomew'e teşekkürler.
• Transpoze
• Başlıkları Yükselt
• Kaldır, İlk Sıralar, İlk 5 Sıra. MF Wong'tan güzel numara.
• Q1'i _Q1 ile değiştirin. Diğer dörtte üçü için tekrarlayın. Teşekkürler Jonathan Cooper.
• Sınırlayıcıya göre bölme _. Bu şaşırtıcı adım, isimleri bir sütunda tutar ve çeyrekleri bir sonraki sütuna taşır. Jonathan Cooper tarafından mükemmelleştirilen Fowmy tarafından önerildi.
• (Bir adım değil!) Formül Çubuğuna ulaşın ve sütunları Çalışan ve Çeyrek olarak yeniden adlandırın. Teşekkürler Josh Johnson
• Çalışan sütununda hiçbir şeyi null ile değiştirin
• Aşağı Doldur
• Çeyrek sütununda, null değerini Toplam olarak değiştirin. Michael Karpfen'den bu fikir
• Diğer Sütunları Özetleyin. Formül çubuğunda Özelliği Kategori olarak yeniden adlandırın
• Pivot Quarters
• Toplam Sütunu Sona Taşı

İşte son kodum:

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"

Bu makalelerde veya videoda adı geçen herkes bir Excel Guru yaması kazanır. Zaten birkaçını postaladım. Almadıysanız, aşağıdaki videoya bir yorum bırakın.