如何删除相同分类下的配对数据

zoomafia

例题描述和简单分析

有 Excel 文件“如何把相同键值相反有项值所在的行删掉.xls”，数据如下所示：

需要把符合身份证号一致、收费项目一致、金额是一正一负的行数删掉（如深绿色和浅绿色的记录），结果如下：

解法及简要说明

在集算器中编写脚本 p1.dfx，如下所示：

	A
1	=file("如何把相同键值相反有项值所在的行删掉.xls").xlsimport@t()
2	=A1.group(社会保障号码, 医院收费项目名称 ).select(~.sum(int( 金额))!=0).conj()
3	=file("result.xls").xlsexport@t(A2)

简要说明：

A1 excel数据读成序表

A2 按“社会保障号码, 医院收费项目名称”分组，若组内金额和为零，将该组设为空，合并

A3 结果导出到 result.xls

执行程序后，result.xls 就是需要的结果。