本系列讲讲字典功能

今天讲讲字典键不能重复的特性

Part 1：应用场景
  1. 已知1列数据，想对其进行去重，如图1所示

excel取非重复值的vba代码（专项-字典-02-去重）(1)

图1 去重

Part 2：逻辑过程
  1. 通过循环将源数据全部写入字典的键，因为字典的键是不能重复的，重复的值写入，键本身不会发生变化
  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

excel取非重复值的vba代码（专项-字典-02-去重）(2)

图2 代码截图

excel取非重复值的vba代码（专项-字典-02-去重）(3)

图3 执行结果

excel取非重复值的vba代码（专项-字典-02-去重）(4)

图4 字典数据结构

Part 4：部分代码解读
  1. d.keys 表示字典的所有键，字典内部结构：键：值

以上，为本次的介绍内容，下回见。

本文首发于Excel高效办公之VBA。排版和细节略作修改，发于头条

,