根据指定列在组内的占比将某数分配到各行

例题描述

Excel文件book1.xlsx中有下图所示数据：

工作表“水费支出(3)”中有每年的漏水损失数量，现在想要把这个损失量分配到工作表“水费支出明细”中的漏水损失列中，分配原则是=漏水损失*月北控水表水量/全年月北控水表水量总和。

此题涉及读取Excel工作表数据、按条件变化分组、组内运算、Excel单元格填数等知识。

实现步骤

1、  编写脚本：

	A
1	=file("E:/work/book1.xlsx").xlsopen()
2	=A1.xlsimport@t(;"水费支出明细")
3	=A2.group@i(年度!=null)
4	=A1.xlsimport@t(;"水费支出 (3)",2:7)
5	=A3.run(y=~.年度/"年",a=A4.select@1(年度==y).'漏水损失（吨）',s=~.sum('月北控水表水量（吨）'),~.run('漏水损失（吨）'=string('月北控水表水量（吨）'*a/s,"#.00")))
6	=A1.xlscell("F2","水费支出明细";A2.('漏水损失（吨）').concat("\n"))
7	=file("E:/work/book2.xlsx").xlswrite(A1)

A1   打开book1.xlsx文件为Excel对象

A2   读出A1中工作表“水费支出明细”的数据，选项@t表示首行是列标题

A3   对A2中的数据按照年度不为空时分为一个新组，选项@i表示当条件参数为真时分一个新组，结果是每年的数据分在同一组

A4   读出A1中工作表“水费支出(3)”的第2-7行数据，选项@t表示首行是列标题

A5   循环A3中的各年份分组，变量y是本组所在年份，变量a是从A4中选出对应年份的漏水损失，变量s是本年度总的月北控水表水量，然后循环本年度所有记录，给漏水损失列赋值为：月北控水表水量*a/s，计算结果保留2位小数。

A6   把A2中的漏水损失列数据用\n连接成串，然后设置到A1的Excel对象的工作表“水费支出明细”的F2单元格。

A7   把A1的Excel对象保存到文件book2.xlsx

2、  运行程序，结束后就可以看到work目录中生成的book2.xlsx文件，打开后的结果如下图。