VBA_反樞紐
在工作上看過很多人習慣用表格呈現資料,不過不是以樞紐表,而是用輸入的方式,這在分析運用上很沒彈性,剛好有一個表格要資料化,本來想用Power Query處理,後來還是決定寫VBA,避免Power Query會一直重複查詢,而且很多人喜歡把不同部門資料放在同一個工作表內,這時還是用VBA比較快。 在家裡弄了個簡單版,隔天上工可以快速修改用上。 Sub A0_反樞紐() '2022/11/24 22:35 Dim arr_資料() With ActiveSheet br = 3 lr = .Cells(br, 1).End(xlDown).Row lc = .Cells(br, 1).End(xlToRight).Column n = 0 For i = br To lr in_代碼 = .Cells(i, 1) in_名稱 = .Cells(i, 2) For c = 1 To 16 '12個月+4季 in_月份 = .Cells(1, c * 2 + 1) in_噸數 = .Cells(i, c * 2 + ...