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