循环结果添加到集合_Excel VBA 8.4 Python中有集合直接获取唯一值，那Exce中可以吗？...

前景提要(文末提供源码下载)

相信现在很多的小伙伴们都有接触过Python，在学习Python的时候，我们都学到了列表和集合，Python中的集合有一个特性，就是数据不重复，有点类似Excel中的字典，那么Excel中是否存在这样的一个集合的概念呢？

其实Excel VBA中也是有这样的一个概念的，应该也是叫做集合，在集合中的数据必须保证唯一，那么我们也可以利用集合的这个特性来获取数据的唯一值，来看看如何操作。

场景说明

还是我们昨天使用过的工作表的样式，我们今天尝试通过其他的方式来获取工作表某列的唯一值，我们来获取性名列的唯一值，再之前我们学习了通过RemoveDuplicates和AdvancedFilter方法来实现，现在我们尝试通过集合的方式来实现这样的效果。

代码区

Sub jihe()On Error Resume NextDim ExcelSet As New CollectionFor i = 2 To 23 ExcelSet.Add Cells(i, 1), Cells(i, 1).TextNext iFor i = 1 To ExcelSet.Count  Cells(i + 1, 5) = ExcelSet.Item(i) NextEnd Sub

代码依然是非常的简短，代码解析的时候，我们会详细讲解下Excel集合的用法，这里我们来看看效果如何

通过上面的动图和最终的筛选之后的结果来进行对比，证明我们的数据结果是没有任何的问题的。

代码解析

来看看今天的代码是如何实现的，我们这里要学习一个集合的概念，在Excel中也有一个集合的概念，就是Collection

但是他并不能够直接使用，我们需要现声明，这个和大家熟悉的字典之类的是一样的方式

Dim ExcelSet As New Collection

这就是申明的方式，非常的简单

然后我们就可以效仿字典的方式，通过循环的结构往集合中添加数据，和字典一样，集合的值也只能存在唯一一个

所以在最开始我们需要先进行错误处理

On Error Resume Next

如果添加了相同的值，那么肯定会报错的，所以要忽略错误内容，跳过继续添加下面的数据，最终一个循环结束之后，我们就得到了整个集合

如果你允许展开的话，你会发现对应的每一个item的值就是某一个姓名，比方说我们展开item5

得到了整个集合之后呢，我们就可以将集合的内容遍历输出，得到我们想要的结果了。

输出的时候我们这里采用循环遍历的方式，为什么不想字典一样采用直接得到item的全部，一次性输出呢？

因为集合并不存在这样的概念。

所以这也是集合的知名度低于字典的原因吧，要想输出结果，只能通过遍历循环的方式来实现。

================================

本节课的案例源码已经上传，需要的小伙伴请按照如下步骤操作，一个不能少哦~~

1.转发下本文章(算是对我的小小支持吧~)

2.后台私信“8-4”

希望大家多支持~~，多多关注 ~ ~

好了，明晚19:00,准时再见!