不改变原次序分类去重

zoomafia

举例

Excel文件book1.xlsx有两列Car和Color，部分数据如下图所示：

现在需要删除每种车中颜色重复的，且不改变原数据顺序，如下图所示：

编写SPL脚本：

	A
1	=T("E:/car/book1.xlsx")
2	=A1.group@p1(Car,Color)
3	=A1(A2.sort())
4	=T("E:/car/book2.xlsx",A3)

A1 读入book1.xlsx文件数据

A2 按Car和Color分组，选项@p表示返回组成员在A1中位置构成的数列序列，1表示分组后每组只取第一条记录

A3 把A2中的序列排序后，按这顺序从A1中取出相应序号的记录

A4 把A3保存到文件book2.xlsx

kuangben8

VBA中使用字典提取一下就好了。