countif函数的使用技巧

1、打开要统计数值的表格，点击【开发工具】，【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开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

5、点击运行图标进行运行程序，也可以按下【F5】键运行行程序，稍等一会即可在Excel表格上面看到统计的结果。