EXCEL使用VBA统计A列某数据出现的次数

Question

使用VBA统计A列李强出现的次数，非常感谢，一定要用VBA的

Answer 1

1、打开Excel，建立空白演示工作簿。

2、在工作表中随机生成一些数据。

3、然后在表格的另外区域制作出判断条件单元格。

4、在结果单元格中先输入函数=MODE(，含有半个括号。

5、然后再用鼠标圈选源数据区域单元格，再输入另一半括号。

6、按回车键后，函数即可计算出源数据单元格中出现次数最多的数据。

Answer 2

借用下别人的代码
Sub A列取唯一值放在D列后面显示总计出现次数()
Dim Arr1()
With ActiveSheet
Rw = .Range("A65536").End(xlUp).Row - 1
Range("d2").Resize(Rw, 2).ClearContents
ArrName = .Range("A2").Resize(Rw, 2)
Set d1 = CreateObject("Scripting.Dictionary")
For i = 1 To Rw
d1(ArrName(i, 1)) = ArrName(i, 1)
Next
n1 = d1.Count
ArrN = Application.Transpose(d1.Keys)
.Range("d2").Resize(n1) = ArrN
For j = 1 To n1
x = 0
For k = 1 To Rw
If ArrName(k, 1) = ArrN(j, 1) Then
x = x + 1
ReDim Preserve Arr1(1 To x)
Arr1(x) = ArrName(k, 2)
End If
Next
c = c + 1
Cells(c + 1, 5) = Application.WorksheetFunction.CountIf(Range("a1:a500"), Cells(c + 1, 4))
Erase Arr1
Next
End With
End Sub