今天小编和大家分享一下如何利用VBA提取唯一值做成数据有效性，小编使用的是EXCEL2003版本，操作在其它版本也是大同小异。
工具/原料
EXCEL2003
方法/步骤
1、先制作原始数据表：如图制作成绩表，同一年级每一个班每个学生考试的成绩，在这个成绩表中班别就是我们要自动提取出来的唯一值，然后统计每个班的平均分、做秀人数等。
2、然后再制作另一个表：数据有效性。在数据有效性中第一列设为：提取唯一值，第二列设置为：数据有效性。
3、插入命令按钮：点击视图——工具栏——控竭惮蚕斗件工具箱——在工具箱那里选择命令按钮并在表格画一个框就添加了命令按钮了——右击命令按钮，选择属性——把Caption值改为：提取唯一值。
4、给命令按钮设置代码：右击命令按钮——选择查看代码——在跳出的代码页面中输入如图所示的代码
5、运行代码：在控件工具箱占击左上角第一个图标退出设计模式——然后点击提取唯一值的命令按钮，就会怎么提取班别的唯一值到A列。
6、设计数据有效性：选中B2单元格缇吾怩舭——点击数据——有效性——设置——允许那里选择：序列——接着在来源那里选择$帆歌达缒A$2:$A$26的区域，这个范围可以设计更大一些，这样就可以把更多的唯一设置为有效性——最后向下填充公式与格式就完成了。
