c语言讲两个数组合并_VBA数组与字典解决方案第27讲：两列数据相互去掉重复值后合并..._weixin_39638708的博客-程序员宝宝

技术标签： vb6 怎么把一个数组的 0 值去掉共享内存中动态数组 c语言讲两个数组合并循环合并nump数组

大家好，今日继续讲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 To UBound(varArr1)) '将A列数据写入动态一维数组

For i = 1 To UBound(varArr1)

temvarArr1(i) = varArr1(i, 1)

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

For i = 1 To UBound(varArr2)

temvarArr2(i) = varArr2(i, 1)

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

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

For i = 2 To UBound(temvarArr2)

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

Next i

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

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

For i = 2 To UBound(varArr1)

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

Next i

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

For i = 0 To UBound(tem1)

tem(i) = tem1(i)

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

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

' 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)

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

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

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

最后我们看输出的结果：

今日内容回向：

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

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

本文链接：https://blog.csdn.net/weixin_39638708/article/details/110122764

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

Trying out the Intel Neural Compute Stick 2 – Movidius NCS2_weixin_30321709的博客-程序员宝宝

Trying out the Intel Neural Compute Stick 2 – Movidius NCS2Disclaimer:The opinions in this article (and on this website in general) are entirely mine and not those of my employer Dell EMC. T...

活动回顾 | 体验家XMPlus出席WRE营销创新与科技峰会2021_体验家的博客-程序员宝宝

2021年11月16日，WRE营销创新与科技峰会2021在上海万豪虹桥大酒店圆满落幕。「体验家XMPlus」作为银牌赞助商受邀出席，并且凭借在客户体验管理领域的先发优势、技术实力和丰富实践，荣获“最佳客户体验管理CEM服务商”奖项。本次峰会由WREWorld Retail Elite主办，由雅各布专栏、上海商业经济学会大力支持，超过300+零售消费品行业的营销与数字化负责人莅临活动现场，共同围绕“全洞察、全渠道、全触点、全链路”这一主题，展开深入的探讨。顶尖大咖，齐聚盛会作...

H3C S5720交换机系统文件丢失一直重启的解决办法_weixin_34240657的博客-程序员宝宝

一、故障描述：公司买了两台交换机H3C S5120，由于小兄弟没经验，把flash:给格式化了，交换机不停的在重启，无法进入系统。二、解决思路：1.下载tftp软件。2.从另外一台交换机的flash中下载一份系统文件。3.装系统文件上传致故障交换机的flash中，重启交换机，故障解决。三.详细配置过程如...

BUU-Crypto密码题_你好..的博客-程序员宝宝

1.Quoted-printable 打开文件，可以看到“=E9=82=A3=E4=BD=A0=E4=B9=9F=E5=BE=88=E6=A3=92=E5=93=A6”这样的直接用编译器http://web.chacuo.net/charsetquotedprintable/flag{那你也很棒哦}2.rabbit密码由题可读出，使用rabbit密码直接解出（题目：U2FsdGVkX1/+ydnDPowGbjjJXhZxm2MP2AgI）http://ww...

git和maven_cracker_03的博客-程序员宝宝

代码】git和maven。

python day3 python基础函数基本语法及特性参数与局部变量返回值嵌套函数递归匿名函数函数式编程介绍高阶函数内置函数..._weixin_30391339的博客-程序员宝宝

本节内容函数基本语法及特性参数与局部变量返回值嵌套函数递归匿名函数函数式编程介绍高阶函数内置函数温故知新1. 集合主要作用:去重关系测试，交集＼差集＼并集＼反向(对称)差集>>> a = {1,2,3,4}>>> b ={3,4,5,6}>>> a{...