本例的问题描述：

1：源数据与提取的结果在同一个工作表里面；

2：提取K、M、O、Q列里面不重复的数据(注意，数据列里面有空白的行)；

3：把提取出来的结果放在A2单元格的下方，不能有空白行；

源数据及目标结果如下：

解决的思路详解：

1：由于K、M、O、Q四列不连续，且中间还有数据(在截图的时候，中间的数据删除了，实际运用的时候，是有数据的)还有空白的单元格出现。所以arr = sht.Range("a1").CurrentRegion这种方法就不适用了；

2：获取一列的最后一个非空单元行，再用Range“K1:K100”)类似这样的方式来获取列的区域了；

3：由于四列的不连续，所以循环需要一点小的技巧，详见后续的代码；

4：提取不重复的值，相信看过之前的文章都知道，要用到字典了；

代码运行的结果如下：

代码如下:

Sub test()

Dim arr, col, i, j, dic

Set dic = CreateObject("scripting.dictionary")

col = Split("K m o q")

For i = 0 To UBound(col)

arr = Range(col(i) & "1").Resize(Cells(Rows.Count, col(i)).End(xlUp).Row)

For j = 3 To UBound(arr, 1)

If Len(arr(j, 1)) Then dic(arr(j, 1)) = j

Next j, i

[a2].Resize(dic.Count).ClearContents

[a2].Resize(dic.Count) = Application.Transpose(dic.keys)

End Sub

代码解析

1：2行定义变量；

2：3行后期绑定字典；

3：4行把四列不连续的只放入col数组；

4：5~6行遍历col数组，获取最后一列的非空单元格之后，与第一列的区域，赋值给arr数组；

5：7行遍历arr数组；

6：8行用len判断单元格的类容是否为非空，把不是空的单元格放入字典d；

7：10行清除指定区域的内容；

8：11行把结果赋值给指定的区域；

本例思考：

1：本例思维两点，是把不连续的列数据，用循环来提取。

小结：

解决本问题，需要用的知识点：

1：字典的经典运用；

2：split函数

点击关注可以更方便的查看Excel VBA的案例文章

私信视频可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件

检查一列数据的重复项 vba_提取重复值，但字典不是重点。相关推荐

Excel中两列数据对比，找出不同数据如何查找重复项并统计重复次数
Excel中两列数据对比,找出不同数据问题1 excel如何查找重复项并统计重复次数问题2
WPS高亮显示重复项并删除重复项有效防止数据重复录入
在录入众多数据之后,难免会有一些重复,对于这些重复的数据可以高亮显示,如此一来就会提高工作效率,那么如何高亮重复项和删除重复项呢?下面有个不错的教程,全程为大家详细讲解一下.有不会的朋友可不要错过喽, ...
Excel 计算重复项中的唯一值的方法
计算重复项中的唯一值假设你想要了解包含重复值的范围中有多少个唯一值. 例如,如果列包含: 值 5.6.7 和 6,结果为三个唯一值 - 5.6 和 7. 值"Bradley".& ...
ExcelVBA使用删除重复项获取不重复记录
ExcelVBA使用删除重复项获取不重复记录关注微信公众号:VBA168 每天更新Excel VBA经典代码,祝你工作和学习更轻松! 利用单元格区域的RemoveDuplicates方法可以去除重复 ...
EXCEL中对一列数据每隔n行提取数据出来
工作中,当表格中记录的数据较多,我们又不需要那么多的数据时,同时想希望对一列数据每隔n行提取一个数据出来,这时我们便可以利用excel提供的公式进行数据的提取,处理数据也会更方便... 以下便是我们要 ...
exce中让两列数据一一对应_工作中被重复数据所烦恼？学会这几个Excel技巧，少加班...
工作中,经常被重复的数据所困扰,那就学下这几个关于重复值的技巧,每天5分钟,工作更轻松! 1.快速查找单列重复数据如果某一列中,有的数据是重复的,我们希望把它找出来,可以在条件格式中突出单元格,然后 ...
excel比较两组或两列数据的相同项和不同项
本例主要向大家介绍如何快速比较excel中两列数据中的相同数据.不同数据,如果需要,将上述相同或不同数据提取出来. 1.首先,在C1输入公式 =MATCH(A1,B:B,) 回车后下拉公式,如果返回的 ...
java清洗hive去除重复数据_hiveql删除重复项，包括重复的记录
我有一个select语句,我存储在数据帧中.... val df = spark.sqlContext.sql("select prty_tax_govt_issu_id from CST_ ...
查询重复项以及删除重复项
–查询出重复项.Deptid,catecode,pid为联合主键.可以换成要查询的内容 select Deptid,catecode,pid,COUNT(0) as num,Max(DepVsSzID ...

检查一列数据的重复项 vba_提取重复值，但字典不是重点。

源数据及目标结果如下：

解决的思路详解：

代码运行的结果如下：

代码如下:

本例思考：

小结：

点击关注可以更方便的查看Excel VBA的案例文章

私信视频可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件

检查一列数据的重复项 vba_提取重复值，但字典不是重点。相关推荐

最新文章

热门文章

检查一列数据的重复项 vba_提取重复值，但字典不是重点。

源数据及目标结果如下：

解决的思路详解：

代码运行的结果如下：

代码如下:

本例思考：

小结：

点击关注可以更方便的查看Excel VBA的案例文章

私信 视频 可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件

检查一列数据的重复项 vba_提取重复值，但字典不是重点。相关推荐

最新文章

热门文章

私信视频可以获取54集VBA入门视频