补上同一类数据的数量

例题描述

有Excel文件book1.xlsx中有下图所示数据，Employee是员工名字，Shift是上下班标记，Route ID是员工坐的班车号。

现在要统计出员工每天上下班时同班车的人数。结果如下图绿色区所示：

此题涉及分组后对组汇总、组内记录的再运算以及剪贴板使用。

实现步骤

1、  编写脚本：

	A
1	=clipboard().import@t().derive(Employees)
2	=A1.group('Route   ID').run(a=~.count(),~.run(Employees=a))
3	=A1.group(Employee,Shift)
4	=A3.new(Employee,Shift,"{"/~.(Employees).concat(";")/"}":Clubbing)
5	=clipboard(A4.export@t())

A1   从剪贴板里读取数据并增加一列Employees，选项@t表示首行是列标题

A2   按Route ID分组后，循环各组，计算各组记录数(即同车人数)赋给变量a，再循环组内各记录令Employees=a

A3   再对A1按Employee和Shift分组

A4   用A3中的各组分别new出一条新记录，取出Employee、Shift字段，将组内各记录的Employees用分号连接成串，两边再加上大括号，命名为Clubbing字段。

A5   把A4中的序表转换成字符串后放进剪贴板，选项@t表示转换时要输出列标题

2、  到Excel文件里选择数据A1:D18，然后按Ctrl+C复制到剪贴板。

回到集算器，运行程序，结束后再回到Excel文件，点击G1，按Ctrl+V就可以把计算结果粘贴过来。