把所有数据的重复值去掉不使用函数只用VBA的实现方法

有关VBA的窗口介绍，已经很多，本节来点实际的，下面有个例子，说是要去重复值的，函数控的朋友门就不要妄想了，只用VBA实现，想张见识的朋友们可以瞧瞧哦。

如下图：A列品名中存在着大量的重复数据，现在我们想把所有数据去掉重复值。

（函数控们请不要想函数方法，今天说的是VBA哦）

先上代码：

Sub 去重复()
Dim arr, d, i
Set d = CreateObject("scripting.dictionary")
arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(arr)
d(arr(i, 1)) = ""
Next
[c1].Resize(d.Count, 1) = Application.Transpose(d.keys)
Set d = Nothing
End Sub

下面会逐句进行解释（黑色为代码，蓝色的为解释）

所有的VBA代码都是以sub开头，end sub结尾。

在VBA中，单引号开头的都为注释，代码是不会执行的哦。

Dim arr, d, i 'Dim定义三个变量，arr为数组，d为字典对象，i为数值

Set d = CreateObject("scripting.dictionary") '创建字典对象d，用于存放不重复数据

arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row) '将A列有数据区域的值赋值给arr数组

For i = 1 To UBound(arr)
d(arr(i, 1)) = ""
Next 'For.....Next 这是一组循环数组，利用字典key不能重复特性保存不重复内容

[c1].Resize(d.Count, 1) = Application.Transpose(d.keys) '因为字典key保存的是横向数组，需要转置填充到C列单元格

Set d = Nothing '最后清空字典对象

单击键盘上的alt+F8执行代码，Look!最后执行出来的结果是这样的，是不是觉得so easy!

小伙伴们如果更好的建议，可以告诉我们哦！