你已选中了添加链接的内容蓝字关注,加微信NZ9668获资料信息
VBA解决方案 系列丛书作者
头条百家平台 VBA资深创作者
_______________________________
大家好,今日继续和大家分享VBA编程中常用的常用“积木”过程案例,今日分享的是第296期。讲解排重的方案。这些内容是我的经验的记录,来源于我多年的经验。大家在学习VBA的时候,把这些代码块作为一块块的积木对待,平时积累,用时拿来修正、组合。这是一种编程的思路,就是我推出的“积木编程”方案。希望大家加以利用。最近代码多是出自第三套教程”VBA数组与字典解决方案”。
![f9a6e02971a27b8066c942510a40ef74.png](https://i-blog.csdnimg.cn/blog_migrate/97c043b8c35ad4204497405ac489600f.png)
Sub mynzsz_62()
Sheets("62").Select
myarr = Range("a1", Range("a65536").End(xlUp))
Set mydic =CreateObject("Scripting.Dictionary")
For i = 1 To UBound(myarr)
If mydic.exists(myarr(i, 1)) Then
mydic(myarr(i, 1)) ="@"
Else
mydic.Add myarr(i, 1), myarr(i, 1)
End If
Next
[e:e].Clear
[E1] = "不重复数据"
mys = Application.Transpose(Filter(mydic.items, "@", False))
Range("e2").Resize(UBound(mys), 1) = mys
Set mydic = Nothing
End Sub
代码解析:
1 上述过程实现了从A列数据中提取出只出现一次的数据。将数据装入数组myarr,将数组数据装入字典mydic,同时为了区分哪个是只出现一次的数据,用了"@"作为重复数据的标识,在从字典中提出数据时,利用数组函数FILTER把没有标识的数据提取出来放在MYS中,最后回填数据。
2 '将字典赋值,同时区分是否重复
For i = 1 To UBound(myarr)
If mydic.exists(myarr(i, 1)) Then
mydic(myarr(i, 1)) = "@"
Else
mydic.Add myarr(i, 1), myarr(i, 1)
End If
Next
上述预计中实现了字典数据的建立,当不是重复数据时字典的键值是键,当是多次出现的数据时字典的键值是"@".
3 '取得回填数据,并回填
mys =Application.Transpose(Filter(mydic.items, "@", False))
Range("e2").Resize(UBound(mys), 1) = mys
上述语句中实现了从字典的键值中提取不含有"@"的数据,放到数组MYS中,最后回填数据。
![1e7c92cbef7dd120b8ba29b270b8328b.png](https://i-blog.csdnimg.cn/blog_migrate/4826f278c6a57b203d375ba69560a600.png)
在取代
OFFICE
新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非
VBA
莫属!学习
VBA
是个过程,如太白诗云:众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。
“水善利万物而不争”,绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,有一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。茶,满也好,少也好,不要计较;浓也好,淡也好,其中自有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。在后疫情更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。学习时微而无声,利用时则巨则汹涌。
VBA是利用Office实现自己小型办公自动化的有效手段,我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了五部VBA专门教程。
第一套:VBA代码解决方案是VBA中各个知识点的讲解,覆盖绝大多数的VBA知识点,初学必备;
第二套:VBA数据库解决方案数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。
第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习。
第四套:VBA代码解决方案之视频是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。
第五套:VBA中类的解读和利用这是一部高级教程,讲解类的虚无与肉身的度化,可以对促进自己理论的提高。
学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。我的上述教程是我多的经验的传递,大家可以根据
1,3,2,5或者是
4,3,2,5的顺序逐渐深入的逐渐学习。
![37ce9c486fe7c71b94bdcc44fe7a9d0f.png](https://i-blog.csdnimg.cn/blog_migrate/f697a93570a95b7361cb0a427105c5e5.png)
最后将一阙词送给致力于VBA
学习的朋友:
浮云掠过,暗语无声,唯有清风,惊了梦中啼莺。
望星,疏移北斗,奈将往事雁同行。
阡陌人,昏灯明暗,忍顾长亭。
多少VBA人,暗夜中,悄声寻梦,盼却天明。
怎无凭!
分享成果,随喜正能量
_____________________________
有启发 点在看,转给朋友
约作者 请留言,直接交流
更多关联阅读
![8741d92bc70be56fce76074a8800a979.png](https://i-blog.csdnimg.cn/blog_migrate/ff80a046edbc4374f2c98976353e7bfd.jpeg)
![45748d06c05a0f142a75837a3900d604.png](https://i-blog.csdnimg.cn/blog_migrate/63c13a689fcee193521b1990a18f5d17.jpeg)
![ee852ac9f4e7dfbf3b117c6caa333248.png](https://i-blog.csdnimg.cn/blog_migrate/ee1a4ee0b6d365844b56a9767c31f845.jpeg)
![7a4b9ae64fb5383e3242adafe7cbea04.png](https://i-blog.csdnimg.cn/blog_migrate/2a270765aa040aabcb6e06126624ea51.jpeg)
![1b9cd5ecdf31d912d38166d440761b17.png](https://i-blog.csdnimg.cn/blog_migrate/a225b742e463b7df0cdb871844992c2e.jpeg)
![55943a78eb3655d22d9bd749c83920cb.png](https://i-blog.csdnimg.cn/blog_migrate/21b90568cb64558ece9e5c2e0fb37e7d.jpeg)