碰到空行或非空行时分组

zoomafia

例1：碰到空行

有 Excel 文件 book1.xlsx，数据如下所示：

A列的数据由多段组成，每一段是连续的 N 行 +1 个空行，现在要在B列空行处计算各段总和，B 列其他位置保持空，结果如下：

编写SPL脚本：

	A
1	=clipboard().split("\n")
2	=A1.group@i(~[-1]=="")
3	=A2.([""]*(~.len()-1)|~.sum()).conj()
4	=clipboard(A3.concat("\n"))

A1 从剪贴板里读取数据，按回车符拆成序列

A2 当上一个成员为空串时，新分一组

A3 循环每一组，计算各组数字总和，在前面补齐(成员个数-1)个空串

A4 将A3中的序列用\n拼接成串，放入剪贴板中

先打开book1.xlsx文件，选择A列所有有效数据，按Ctrl+c复制，然后再运行SPL脚本，运行结束后回到Excel，点击B1单元格，按Ctrl+v将结果粘贴过来。

例2：碰到非空行

Excel 文件 book1.xlsx有各年月用水量数据，只有每年的第1个月前填写了年份，部分数据如下所示：

现在要计算各年用水量总和，部分结果如下：

编写SPL脚本：

	A
1	=T("e:/water/book1.xlsx")
2	=A1.group@i(Year!=null).new(Year,~.sum(Water):Total_Water)
3	=T("e:/water/book2.xlsx",A2)

A1 读入book1.xlsx文件数据

A2 按Year字段不为空时分成一个新组，选项@i表示当条件满足时就新分一个组。然后构造新的数据集，取出年份Year字段，各年用水量总和为Total_Water字段

A3 将A2中的结果保存到文件book2.xlsx