「Excel-VBA」专项-字典-02-去重

大家好，欢迎来到IT知识分享网。

• 系统环境：Windows 10
• Excel：2016版本

本系列讲讲字典功能

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

Part 1：应用场景

1. 已知1列数据，想对其进行去重，如图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 

图2 代码截图

图3 执行结果

图4 字典数据结构

Part 4：部分代码解读

1. d.keys 表示字典的所有键，字典内部结构：键：值

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

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