EXCEL如何利用VBA提取唯一值做成数据有效性

今日，我将演示如何通过VBA在Excel 2003中实现唯一值数据验证，其操作方法适用于其他版本的相似步骤。

1、 先制作原始数据表：如图制作成绩表，同一年级每一个班每个学生考试的成绩，在这个成绩表中班别就是我们要自动提取出来的唯一值，排哨然后统计每个班的平均分、做秀人数等。

2、 然后再制作另轿召一个表：数据有效性。在数据有效性中第一列设为：提取唯一值，第二列设置为：数据有效性。

3、 插入命令按钮：点击视图——工具栏——控件工具箱——在工具箱那里选择命令按钮并在表格画一个框就添加了命令按钮了——右击命令按钮，选择属性——把Caption值改为：提取唯一值。

4、 给命令按钮设置代码：右击命令按钮——选择查看代码——在跳出的代码页面中输入如图所示的代码

5、 运行代码：在控件工具箱占击左上角第一个图标退出设计模式——然后点击提取唯特栗趣一值的命令按钮，就会怎么提取班别的唯一值到A列。