为每个分类生成唯一的序号

 

例题描述

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

..

现在要对UNIQUE ID重新编号,如果ID相同则编号相同,不同ID的编号不同,结果如下图绿色区所示:

..

此题涉及分组后对组内记录的操作以及剪贴板使用。

 

实现步骤

1、  编写脚本:


A

1

=clipboard().import@t()

2

=A1.group(ID).run(a=#,~.run('UNIQUE   ID'=a))

3

=clipboard(A1.export@t())

A1   从剪贴板里读取数据,选项@t表示首行是列标题

A2   按分组后,循环各组,将当前组的序号赋给变量a,再循环组内各记录令UNIQUE ID=a

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

 

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

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

 

问答搜集  https://stackoverflow.com/questions/63797394/continuous-serial-number-generation-incl-duplicate-values

 

 

【附件】 groupid.zip