使用公式或函数比较单元格值并在Excel中打印计数？

我需要一个公式或函数来满足我下面提到的需求。 我有一个大约11000行的Excel数据和数据看起来有点像列A：现在在列B我希望打印结果如下所述：这实际上意味着它应该计数列中存在的值，并打印在B列，我不需要重复计数：

Column A Column B PC-101 1 PC-101 1 PC-102 2 PC-102 2 PC-103 3 PC-104 4 PC-106 5 PC-107 6 PC-104 4 PC-106 5 PC-106 5 

我尝试了“count”系列公式，但结果为空。 即使我写了下面给出的macros（我从stackoverflow得到），但即使是打印重复计数：

 Sub CountOccurence（）
参考：Microsoft脚本运行时

 Application.ScreenUpdating = False

设置oDict =新词典
昏暗的WS作为工作表
 Dim r As Integer，rLast As Integer

    设置wS = Sheet1
     rLast = wS.Cells（1，1）.CurrentRegion.Rows.Count
    对于r = 3到最后一个步骤1
        如果不是（oDict.Exists（wS.Cells（r，1）.Value））那么
             oDict.Add wS.Cells（r，1）.Value，1
        其他
             oDict.Item（wS.Cells（r，1）.Value）= oDict.Item（wS.Cells（r，1）.Value）+ 1
        万一
         wS.Cells（r，2）.Value = oDict.Item（wS.Cells（r，1）.Value）
    下一个r
设置oDict = Nothing
 Application.ScreenUpdating = True
结束小组

任何人都可以帮助我呢？ 提前致谢。

Answer 1

我尝试了“count”系列公式，但结果为空。

一个简单的Excel公式可以做到这一点。

将1放入单元格B1中，然后将此公式放入单元格B2并将其拉下。

 =IF(COUNTIF($A$1:$A2,A2)>1,VLOOKUP(A2,A:B,2,0),B1+1) 

Answer 2

假设列a中的数据已sorting，则可以简单地在B3中将此公式放在B3中，并将其复制下来：

 =IF(A2<>A3,B2+1,B2) 

🙂