excel vba:如何用vba显示数据出现次数

Question

A列是由5个数字经过随机复制得到的数列，共有15行
B列是这5个数字
我想在C1-C5显示这5个数字在A列出现的次数。
也有另一种情况，就是 C列有一个数字从没出现过，也就是说出现次数有可能是0

Answer 1

以下两种方法都可以实现次数统计：

Sub AutoCountIfA1()
    Range("C1:C5").Formula = "=COUNTIF($A$1:$A$15,B1)"
End Sub

Sub AutoCountIfR1C1()
    Range("C1:C5").FormulaR1C1 = "=COUNTIF(R1C1:R15C1,RC[-1])"
End Sub

效果：

Answer 2

COUNTIF函数不可以吗，下面是1~5数字的例子：