vba - VBA：为列中的重复值添加后缀

Question

我希望您能帮助我解决 VBA 中有关为重复值添加后缀的问题。我的范围如下所示：

COL A:
000049
000050
000051
000052 (duplicate)
000052 (duplicate)
000053
000054

我想要实现的是，一旦 A 列中有重复项，它就会为这两个数字添加一个后缀。我只管理（使用循环）为其中一个字段设置它。

条件：

1. 如果有重复，所有的重复必须有后缀；
2. 如果有一个新的副本（假设我们有 000052A 和 000052B，我们现在移动到 000061），则后缀计数必须从 A 重新开始。

非常感谢您的帮助！

Answer 1

你可以用一个公式来做到这一点：

=A1 & IF(COUNTIF(A:A,A1)>1, MID("ABCDEFGHIJK", COUNTIF($A$1:A1, A1), 1),"")

并抄下来。

这就是说“从 A1 中获取值，如果 A 列中的任何位置有重复项，然后从字符串“ABCDEFGHIJK”中获取字符，该字符对应于该值已经出现在列表中的次数（从 A1 到我们的任何行在...上）”