请问怎么样可以用VBA实现根据单元格内容自动进行重复或递进编号？

yjy5291 · 发表于 2024-7-17 13:18

我这边想做一个自动编号，比如单元格B1和B2的内容相同，那么自动在A列生成编号为1，B3单元格内容和B2，B1不一样，那么自动生成编号为2，B4和B5内容一样，但是和前面的内容都不一样，就自动生成编号为3，以此类推。

之前是用下面这个公式实现的，但是数据量一大之后，每次添加新的B列内容就会非常卡，要计算很长时间，想说是不是有可能换成VBA来生成编号能改善这个问题。
=IFERROR(ROUND(SUMPRODUCT(1/COUNTIF(B$9:B468,B$9:B468)),0),"")

有没有大佬可以帮忙指导一下思路，谢谢！

hongshan2019 · 发表于 2024-7-17 14:02

我猜一个字典就可以解决

grf1973 · 发表于 2024-7-17 14:48

不用字典的。。

grf1973 · 发表于 2024-7-17 14:53

直接用公式也行啊。
[c1]=1
[c2]=IF(B2=B1,C1,C1+1)

xd3210 · 发表于 2024-7-17 15:36

		自动登录	找回密码
密码			免费注册

[求助] 请问怎么样可以用VBA实现根据单元格内容自动进行重复或递进编号？