Excel2010将重复按钮添加到快速访问工具栏以便执行重复操作
938
2022-08-10
把所有数据的重复值去掉不使用函数只用VBA的实现方法(怎么剔除excel重复数据函数)
有关VBA的窗口介绍,已经很多,本节来点实际的,下面有个例子,说是要去重复值的,函数控的朋友门就不要妄想了,只用VBA实现,想张见识的朋友们可以瞧瞧哦。
如下图:A列品名中存在着大量的重复数据,现在我们想把所有数据去掉重复值。
(函数控们请不要想函数方法,今天说的是VBA哦)
先上代码:
Sub 去重复()Dim arr, d, iSet 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 = NothingEnd 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!
小伙伴们如果更好的建议,可以告诉我们哦!
发表评论
暂时没有评论,来抢沙发吧~