VBA - 查找所有匹配并添加文本并完成自动填充

Question

我有这张桌子：

NAME1
NAME1
NAME1
NAME1
NAME2
NAME2
NAME2

并且需要以此结束

NAME1_A1
NAME1_A2
NAME1_A3
NAME1_A4
NAME2_A1
NAME2_A2
NAME2_A3

所以基本上我需要找到彼此完全匹配的所有单元格。在这种情况下，我会找到“NAME1”，然后我需要将“_A1”添加到“_Ax”，其中x与找到的匹配数相同。然后它需要找到另一个匹配并执行相同的操作。因此对于NAME2，也要添加A1-Ax。

我试图开始录制宏，然后编辑它。后来我试图自己写这个，但是，我必须承认我甚至不知道如何开始。 有人帮忙吗？

Answer 1

假设您在单元格A1中以A列开头的数据。

在单元格B1中，输入以下公式：

=A1 & "_A" & COUNTIF($A$1:A1,A1)

然后将其拖下来。

现在，只需Copy和Paste Special＆gt;原始列顶部的Values已完成 - 然后您可以删除计算列。

希望这是有道理的。