相同的值然后递增

Question

我是 VBA 新手，需要帮助制作一个宏来基本上查看列中的值是否相同并在另一列中递增。有点混乱，所以这里有一个例子：

INBOUND.T28 1
INBOUND.T28 2
INBOUND.T28 3
INBOUND.T28 4
INBOUND.T29 1
INBOUND.T29 2
INBOUND.T29 3
INBOUND.T29 4
INBOUND.T29 5
INBOUND.T30 1
INBOUND.T30 2
INBOUND.T31 1
INBOUND.T31 2
INBOUND.T31 3

A 列已在文件中，我希望 B 列按上述方式打印。它基本上计算 A 中相同值的数量，并在找到新值时重新开始计数。

我对 VBA 没有任何好处 - 尽管我过去做过 Java，并且基于此我知道我需要使用某种 IF 语句和计数器，例如

value = value + 1 

也许像这样算数？

Range("A1").Value = Range("A1").Value + 1 

请帮忙，我不知道如何做 VBA 和学习它：P 谢谢！ ——

Answer 1

假设 'INBOUND.T28' 在 A 列中，而 1 在 B 列中，那么这个公式应该适合 B2：

=IF(A1=A2,B1+1,1)

对于第一行数据，如果您的第一行是空白或标签。您可以使用带有Application.WorksheetFunction 的 VBA 填充此列和随后的 B 列行。