excel取非重复值的vba代码(专项-字典-02-去重)
- 系统环境:Windows 10
- Excel:2016版本
本系列讲讲字典功能
今天讲讲字典键不能重复的特性
Part 1:应用场景
- 已知1列数据,想对其进行去重,如图1所示
图1 去重
Part 2:逻辑过程
- 通过循环将源数据全部写入字典的键,因为字典的键是不能重复的,重复的值写入,键本身不会发生变化
- 将字典的键取出来,放入表格中
Part 3:代码
Sub test()
Set d = CreateObject("Scripting.Dictionary")
Set sht = ThisWorkbook.Worksheets("示例")
maxRow = sht.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To maxRow Step 1
x = sht.Cells(i, "A")
d(x) = ""
Next i
rowNum = 2
For Each x In d.keys
sht.Cells(rowNum, "C") = x
rowNum = rowNum 1
Next
End Sub
图2 代码截图
图3 执行结果
图4 字典数据结构
Part 4:部分代码解读
- d.keys 表示字典的所有键,字典内部结构:键:值
以上,为本次的介绍内容,下回见。
本文首发于Excel高效办公之VBA。排版和细节略作修改,发于头条
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com