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

我有这张桌子：

NAME1 NAME1 NAME1 NAME1 NAME2 NAME2 NAME2 

并需要以此结束

 NAME1_A1 NAME1_A2 NAME1_A3 NAME1_A4 NAME2_A1 NAME2_A2 NAME2_A3 

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

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

Answer 1

假设您在A单元格开始的A列中有您的数据。

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

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

然后拖下来。

现在，只需在原始列顶部Copy并Paste Special Values >即可完成 – 然后可以删除计算列。

希望是有道理的。