countif函数的使用技巧

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))

Next

End Sub

4、程序释义说明：

①cells是表格里面的单个单元格，即：cells（第几行，第几列）；

②Application.WorksheetFunction主要是调用Excel表格上面的函数；

③countif函数的用法为：countif（查找的范围，要查找的数值）。

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