軟體: Office 365 Excel
目前寫了一個巨集,流程大約如下:
我有八個事先寫好規則的工作表,與一個來源資料工作表,
巨集會根據八個含規則工作表內容對來源資料進行八次樞紐(樞紐包在迴圈內)
每次樞紐完會把樞紐工作表內的資料全部複製到新的結果工作表,並且把樞紐工作表刪除
(因為樞紐工作表只是用來計算)
我的想法是用這個方式一次產出八個最終的結果工作表
目前的進度是功能都已經寫完,也可以順利對來源資料表進行一次處理,也就是說
不用迴圈都沒問題,但是如果我用迴圈把整個流程包起來就會在樞紐的步驟卡住。
(把迴圈拿掉的話,手動跑八次不同規則的巨集不會有錯誤,但是放迴圈的話跑到第二輪
就會在樞紐處停住)
附上產生樞紐部分的程式:
'會在下面Set PTCachc這行卡住
Set PTCache = ThisWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:=Datasheet.Range(Cells(1, 1), Cells(workingRow,
workingColumn)))
Set PT = PTCache.CreatePivotTable _
(TableDestination:="", _
TableName:=ReportType)