使用 Excel VBA 按块向行添加数字

Add numbers to rows by block with Excel VBA

我有这样的数据集：

City          Money   Code       Quantity
London        1.96    54645641    3         
London        1.96    54645641    3         
London        1.96    54645641    3         
Madrid        200     158484      4         
Madrid        200     158484      4         
Madrid        200     158484      4         
Madrid        200     158484      4          
Denver        56.7    494681818   1

并且我想通过重复城市的块向每一行添加一个数字，我的意思是得到这个：

City          Money   Code       Quantity Number
London        1.96    54645641    3         1
London        1.96    54645641    3         2
London        1.96    54645641    3         3
Madrid        200     158484      4         1
Madrid        200     158484      4         2
Madrid        200     158484      4         3
Madrid        200     158484      4         4
Denver        56.7    494681818   1         1

一些帮助将不胜感激

使用具有可变范围的 COUNTIF：

=COUNTIF($A:A2,A2)