怎样使用VBA统计选区中不重复数据个数？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 不重复数据个数()

 

    Dim a As String, b As Integer, rng As Range

 

    a=","

 

    For Each rng In Selection  '遍历整个区域

 

      If InStr(a, "," & rng & ",")=0 Then  '如果在变量a中未找到单元格的

 

值加前缀后缀

 

          b=b+1: a=a & rng & ","   '那么累加计数器，同时重定义变量a

 

      End If                            '下一个

 

    Next

 

    MsgB

5、选择所有区域B3:B13及D3:D13，用快捷键Alt+F8调出运行宏窗口，然后单击执行按钮，将弹出选区中不重复值个数之对话框