7-10 WPS JS宏 对象使用 实例7--拆分单表到多工作簿下的多表
原数据：
结果：
代码：
function test(){
var arr=Range("a2:e"+Range("a9999").End(xlUp).Row).Value();
var obj={},pah=ThisWorkbook.Path;
var tit="省份","产品","月份","销售数量","销售金额";
for (var ar of arr){
if(ar0 in obj){
if(ar1in objar\[0]){
objar\[0]ar\[1].push(ar);
}else{
objar\[0]ar\[1]=ar;
}
}else{
objar\[0]={ar\[1]:ar};
}}
for(var key,valof Object.entries(obj)){
var wb=Workbooks.Add();
for(var k,a of Object.entries(val)){
var ws=wb.Sheets.Add();
ws.Name=k;
Console.log(JSON.stringify(a))
ws.Range("a1").Resize(a.length+1,5).Value2=tit.concat(a);
// ws.Range("a1").Resize(a.length,12).Value2=a);
}
wb.Sheets("sheet1").Delete();
try {
// 创建单层文件夹（完整路径）
MkDir(pah+"\\分发结果");
Console.log("创建成功");
} catch (error) {
Console.log("有此目录，继续");
}
wb.SaveAs(pah+`\\分发结果\\`+key+`.xlsx`);
wb.Close();
}
}