1、打开要统计数值的表格，点击【开发工具】，【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。
2、在VBA编辑器上面点击【插入】，【模块】。
3、在模块的代码框里面输入以下代码：Sub Countif()On Error Resume Next '忽略程序运行过程中出现的错误肛舀辨乔Dim i As Long '定义i为整数Set MySheet2 = ThisWorkbook.Worksheets("Sheet2") '定义工作表Set Range1 = ThisWorkbook.Worksheets("Sheet1").Range("A2:A100000")For i = 1 To 50000 '循环执行50000次MySheet2.Cells(i, 2) = Application.WorksheetFunction.Countif(Range1, MySheet2.Cells(i, 1))NextEnd Sub
4、程序释义说明：①cells是表格里面的单个单元格，即：cells（第几行，第几列）；②Application.WorksheetFunction主要是调用Excel表格上面的函数；③countif函数的用法为：countif（查找的范围，要查找的数值）。
5、点击运行图标进行运行程序，也可以按下【F5】键运行行程序，稍等一会即可在Excel表格上面看到统计的结果。
