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