Excel VBA 7.29多列数据去重,Excel自带重复项只能单列?怎么破?

一起学习,一起进步~~

昨天我们分享了在进行数据合并的过程中,如何同时进行去重的操作,这对于小伙伴们日常的操作是有很大的帮助的,毕竟Excel自带的重复项高亮功能也只能针对一列,并且没有办法跨工作表,我们可能需要进行多个次去重才能够得到一个最终的结果,然后就有小伙伴不淡定了,因为我们的参照列是一列,只有姓名列,如果想要两列或者多列同时去重呢?

场景简介

还是上节的案例,多列去重,我们假设我们需要满足的条件是,姓名+班级这两列数据完全相同,才算是同一个数据源,只有有一个不同就不算是相同数据,比方说A15,姓名和班级都是相同的, 我们保留一个就可以了。

第三个表中,虽然C22有两个,但是班级不同,是不同班级的相同姓名的童鞋(名字比较大众化~~哈哈),这样的话,我们可能是当成不同的两个人

那么在这样的情况如何实现呢?

代码区

Sub TEST()Dim sth As Worksheet, rng As Range, zd As Object, a As Range, arr, arr1()Set rng = Application.InputBox("请选择参照列", "参照列的选择", , , , , , 8)Set zd = CreateObject("scripting.dictionary")colnum = rng.Columncolnums = rng.Columns.Countk = 0For Each sth In Worksheets sth.Activate rl = sth.Cells(Rows.Count, 1).End(xlUp).Row cl = sth.Cells(1, Columns.Count).End(xlToLeft).Column arr = sth.Range(Cells(1, colnum), Cells(rl, cl)) For i = 1 To UBound(arr) s = arr(i, 1) & "-" & arr(i, 2)'想要多列的话,就改这里 If Not zd.Exists(s) Then k = k + 1 zd(s) = k ReDim Preserve arr1(1 To cl, 1 To k) For i1 = 1 To cl arr1(i1, k) = arr(i, i1) Next i1 End If Next iNext sthWorksheets.AddActiveSheet.Name = "去重版名单"ActiveSheet.Cells(1, 1).Resize(k, UBound(arr1)) = WorksheetFunction.Transpose(arr1)End Sub

好像代码并没有太大的变化,来看看效果

首先依然是选择参照列,这里的参照列我们是选择两列

然后就可以去喝口茶了。

看结果

出来了,我们来验证下上面几个人员的情况

A15 只保留了一个,符合我们的要求,因为他的姓名和班级是相同的

C22保留了两个数据,因为虽然姓名相同,但是班级不同,在本案例中是不同的人

完美

代码分析

虽然今天的代码看起来比较的简单,和上节的情况似乎差不多,其实思路也是一样的,利用字典的唯一性,但是逻辑上要稍微费点脑细胞理解下

我们从进入每个工作表的循环开始说起

rl = sth.Cells(Rows.Count, 1).End(xlUp).Rowcl = sth.Cells(1, Columns.Count).End(xlToLeft).Columnarr = sth.Range(Cells(1, colnum), Cells(rl, cl))

现货区当前工作表的区域,然后将它赋值给数组arr,这里我们为什么不直接用usedrange呢?因为我们后面会使用到rl,cl这两个变量、

然后进入今天的重点(划重点了)

既然我们这里要进行多列去重,那么就等于将多列作为一个整体,将这多列数据当成一列,因为我们这里是两列,我们就将这两列的内容合起来复制给一个变量s

s = arr(i, 1) & "-" & arr(i, 2)

我们运行下看看是什么效果

看图大家应该能够看出来了,就是讲第一列和第二列通过连接符“-”联系在一起,作为一个整体,我们通过判断这个整体在字段中是否存在作为参考标准。

如果存在跳过,如果不存在,就利用数组将所有的数据装进数组中

本案例我们将所有的数据都汇总起来,这里就是利用动态数据的方式来进行了。 因为已经确定了列数,cl,所以动态数组就很好处理了。

ReDim Preserve arr1(1 To cl, 1 To k)

因为数据比较多,我们不可能和之前一样一个个去赋值,这样不科学,也不规范,这里我们再利用循环的方式将数组赋值

For i1 = 1 To cl arr1(i1, k) = arr(i, i1) Next i1

看看效果图

其实就是通过循环的方式将每个数据放到数组中了,避免了之前一个一个写的烦恼

看看重复数据,A15,这里我们已经来到第二个表了,A15这个位置,这时候的S=“A15-高三1班”,字典中也存在这个值了,所以是直接跳过的

第一次弄这种动画,不知道效果如何

而C22,因为班级不同,所以s并不同,故依然还是会进行如数组的循环,不断的装数据

怎么样,这样分步讲解,大家是否能够理解呢?

VBA中两大得力助手,字典和数组都在本节出现了,快来一起学习吧

好了~明晚21:00,准时再见。

(0)

相关推荐