学习
实践
活动
工具
TVP
写文章

VBA数组与字典解决方案第27讲:两列数据相互去掉重复值后合并

VBA解决方案 系列丛书作者

头条百家平台 VBA资深创作者

_______________________________

大家好,今日继续讲VBA数组与字典解决方案的第27讲,内容是两列数据中相互去掉重复值之后将数据合并。这讲的内容利用到动态数组,固定数组,数组的合并,数组的转置等等。

还是先看实例,下面的工作表中A列和B列有两列数值如下:

我们首先要在A列中去掉B列的重复值,然后在B列中去掉和A列重复的值,然后将剩余的A,B列数合并到C列。这个问题在理论上的应用较多,实际工作中要结合具体的应用来解析。如何实现呢?我们看下面的代码:

Sub MyNZsz_27() '第27讲两列数中去掉相互重复值后合并"

Sheets("27").Select

Dim temvarArr1(),temvarArr2(), tem()

varArr1 =Range("A1:A" & Range("A1").End(xlDown).Row) '将A列数据写入数组

varArr2 =Range("B1:B" & Range("B1").End(xlDown).Row) '将B列数据写入数组

ReDim temvarArr1(1 ToUBound(varArr1)) '将A列数据写入动态一维数组

For i = 1 ToUBound(varArr1)

temvarArr1(i) =varArr1(i, 1)

Next

ReDim temvarArr2(1 ToUBound(varArr2)) '将B列数据写入动态一维数组

For i = 1 ToUBound(varArr2)

temvarArr2(i) =varArr2(i, 1)

Next

'在数据1中去掉数据2的值,结果赋值给tem1

tem1 =Filter(temvarArr1, temvarArr2(1), False) '给TEM1赋初始值,返回temvarArr1中不含temvarArr2(1)的值

For i = 2 ToUBound(temvarArr2)

tem1 = Filter(tem1,temvarArr2(i), False)

Next i

'在数据2中去掉数据1的值,结果赋值给tem2

tem2 =Filter(temvarArr2, temvarArr1(1), False) '给TEM2赋初始值

For i = 2 ToUBound(varArr1)

tem2 = Filter(tem2,temvarArr1(i), False)

Next i

ReDim tem(0 ToUBound(tem1) + UBound(tem2) + 1)

For i = 0 ToUBound(tem1)

tem(i) = tem1(i)

Next

For i = UBound(tem1) +1 To UBound(tem1) + UBound(tem2) + 1

tem(i) = tem2(i -UBound(tem1) - 1)

Next

' MsgBox Join(tem) '如果需要提示用户用此代码

Range("C1") ="两列数中去掉相互重复值后合并"

[c2].Resize(UBound(tem)+ 1) = WorksheetFunction.Transpose(tem)

End Sub

代码截图:

代码解析:

1整个代码的过程先讲A和B列的数写入数组,然后转成一个一维数组,并分别去除重复值,得到TEM1和TEM2两个数组。最后将两个数组合并。

2 ReDim tem(0 To UBound(tem1) + UBound(tem2) + 1)此处给动态数组以上下界的定义

3 For i = 0 To UBound(tem1)

tem(i) = tem1(i)

Next

For i = UBound(tem1) +1 To UBound(tem1) + UBound(tem2) + 1

tem(i) = tem2(i -UBound(tem1) - 1)

Next

上述代码中分别有循环语句给给TEM数组赋值。

最后我们看输出的结果:

今日内容回向:

1上述代码的过程是否理解呢?

2上述过程中有哪些是动态数组?哪些是固定数组呢?

_____________________________

有启发 点在看,转给朋友

约作者 请留言,直接交流

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20190918A0MIE500?refer=cp_1026
  • 腾讯「腾讯云开发者社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 cloudcommunity@tencent.com 删除。

扫码关注腾讯云开发者

领取腾讯云代金券