前景提要(文末提供源码下载)
相信现在很多的小伙伴们都有接触过Python,在学习Python的时候,我们都学到了列表和集合,Python中的集合有一个特性,就是数据不重复,有点类似Excel中的字典,那么Excel中是否存在这样的一个集合的概念呢?
其实Excel VBA中也是有这样的一个概念的,应该也是叫做集合,在集合中的数据必须保证唯一,那么我们也可以利用集合的这个特性来获取数据的唯一值,来看看如何操作。
场景说明
![7da8aa215bc905055983976bce6a92ad.png](https://i-blog.csdnimg.cn/blog_migrate/672d0b27fd730cdb0c62819c761ca031.jpeg)
还是我们昨天使用过的工作表的样式,我们今天尝试通过其他的方式来获取工作表某列的唯一值,我们来获取性名列的唯一值,再之前我们学习了通过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集合的用法,这里我们来看看效果如何
![fb762424931c4c1c3b0fe224205267eb.gif](https://i-blog.csdnimg.cn/blog_migrate/25971853a0e3076543eed451f624d09f.gif)
通过上面的动图和最终的筛选之后的结果来进行对比,证明我们的数据结果是没有任何的问题的。
代码解析
来看看今天的代码是如何实现的,我们这里要学习一个集合的概念,在Excel中也有一个集合的概念,就是Collection
但是他并不能够直接使用,我们需要现声明,这个和大家熟悉的字典之类的是一样的方式
Dim ExcelSet As New Collection
这就是申明的方式,非常的简单
然后我们就可以效仿字典的方式,通过循环的结构往集合中添加数据,和字典一样,集合的值也只能存在唯一一个
所以在最开始我们需要先进行错误处理
On Error Resume Next
如果添加了相同的值,那么肯定会报错的,所以要忽略错误内容,跳过继续添加下面的数据,最终一个循环结束之后,我们就得到了整个集合
![f554fe95c21c58d419fdd76a2dc6d185.png](https://i-blog.csdnimg.cn/blog_migrate/ec2eb0151bcc92e32393b0dd4f1d5a8c.jpeg)
如果你允许展开的话,你会发现对应的每一个item的值就是某一个姓名,比方说我们展开item5
![c6f9e3d9e6f1c6ca3031b16ba31f86a0.png](https://i-blog.csdnimg.cn/blog_migrate/c4a40ee8258b08f89075ab61ea920342.jpeg)
得到了整个集合之后呢,我们就可以将集合的内容遍历输出,得到我们想要的结果了。
输出的时候我们这里采用循环遍历的方式,为什么不想字典一样采用直接得到item的全部,一次性输出呢?
因为集合并不存在这样的概念。
![30d1602bea7b8cb70ba08ebeaa0bf954.png](https://i-blog.csdnimg.cn/blog_migrate/a98d6da75155582b3b95c5e66d0c5c82.jpeg)
所以这也是集合的知名度低于字典的原因吧,要想输出结果,只能通过遍历循环的方式来实现。
================================
本节课的案例源码已经上传,需要的小伙伴请按照如下步骤操作,一个不能少哦~~
1.转发下本文章(算是对我的小小支持吧~)
2.后台私信“8-4”
希望大家多支持~~,多多关注 ~ ~
好了,明晚19:00,准时再见!