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 до в каком бы ряду мы ни были) "