1、如下所示，现需统计B列中指定范围的不同值的数量，统计的方式可能有很多种，若有更好的方式，欢迎交流。
2、因未启用宏的工作薄不能保存宏及vb工程。所以若则需要先将excel保存成启用宏的格式。将第一步中xls格式或者xlsx格式的excel点击【文件→另存为】，【保存类型】选择“Excel启用宏的工作薄”
3、打开第二步中保存的工作薄。点击excel的【开发工具→Visual Basic】打开vb脚本编辑器
4、在打开的脚本编辑器中，点击【插入→模块】
5、打开页面中输入如下代码，见截图中部分代码进行了备注，根据实际需要修改。
Function shuli(rn)
arr = rn
b = 0
c = 0
For i = 1 To UBound(arr) For j = i To UBound(arr) If arr(j, 1) = arr(i, 1) And arr(i, 1) <> "" Then c = c + 1 End If Next j If c = 1 Then b = b + 1 End If c = 0Next ishuli = bEnd Function
6、保存脚本代码后，回到excel中，在要输出统计结果的单元格中输入公式调取上一步骤中定义的函数。按回车后就户自动计算。
