在B1中输入：=COUNTIF(A:A,B1)即可
如果用VBA也可以调用函数
Sub x()Range("b2") = "=COUNTIF(A:A,B1)"End Sub
用字典处理较简单。如果数据量大，建议再配合数组进行处理
用公式的countif就可以了
这个用公式就可以，用vba就小题大做了
