1、Countif函数是表格中对指定区域中符合指定条件的单元格计数的函数，使用“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)) Next End Sub”
4、“cells”是表格里面的撮劝丛食单个单元格，“Application.WorksheetFunction”主要是调用Excel表格上面的函数，countif函数的用法为：countif（查找的范围，要查找的数值）。
5、点击“运行”图标或按下“F5”即可运行程序。
6、总结如下。
