怎样使用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调出运行宏窗口，然后单击执行按钮，将弹出选区中不重复值个数之对话框