例題描述
蔬果明細表fruits.xlsx文件中有蔬果總表，數據如下圖所示：
現需要按類別對蔬果進行拆分后保存到新的sheet里，類別名稱(刪除類別號后)即為sheet名，如下圖所示：
實現步驟
1、 運行集算器
可去潤乾官網下載職場版，同時下載一個免費授權就夠了，首次運行時會提示加載。
編寫腳本：
把代碼列出來看得清楚點：
| A | B | |
| 1 | =file("E:/excel/fruits.xlsx") | |
| 2 | =A1.xlsimport@t(;,2) | |
| 3 | =A2.group(類別) | |
| 4 | for A3 | =substr(A4(1).類別,"]") |
| 5 | =A1.xlsexport@ta(A4;B4) |
A1 打開fruits.xlsx文件
A2 將文件數據讀成序表，選項@t表示首行是列標題，參數2表示從第2行開始讀
A3 按類別列對數據進行分組
A4 循環處理每個組
B4 用每組第1條記錄的類別值，取]號以后的文字作為sheet名
B5 把當前組的記錄寫入fruits.xlsx中的新sheet中，用B4算出來的名稱作sheet名。注意這里一定要加選項a，表示是添加新的sheet
想生成多個文件也很容易，只需將 B5 修改：=file("E:/excel/"+B4+".xlsx").xlsexport@t(A4)
這個實現辦法和原文件的列數無關，變動列都能支持
2、 按F9運行這段程序，打開fruits.xlsx就可以看到前文目標圖所示的效果了。
【附件】 fruits.zip