摘要：《VBA数组与字典方案》教程（10144533）是我推出的第三套教程，目前已经是第二版修订了。这套教程定位于中级，字典是VBA的精华，我要求学员必学。7.1.3.9教程和手册掌握后，可以解决大多数工作中遇到的实际问题。
《VBA数组与字典方案》教程（10144533）是我推出的第三套教程，目前已经是第二版修订了。这套教程定位于中级，字典是VBA的精华，我要求学员必学。7.1.3.9教程和手册掌握后，可以解决大多数工作中遇到的实际问题。
这套字典教程共两册，一共八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：数值与字典解决方案第二十七讲：两列数据相互去掉重复值后合并的方法【分享成果，随喜正能量】161 善心善行的你，利己利他，积累无量福德，菩萨常伴左右，保佑一生平安，财运亨通，福禄双收。生活中，你面对这个世界并不是射出了一支箭，而是你面对了一堵墙。所以说感谢这一切，经过、遇见、曲折和磨砺，不要再给自己树立那些推不倒的墙。
大家好，今日继续讲VBA数组与字典解决方案的第27讲，内容是两列数据中相互去掉重复值之后将数据合并。这讲的内容利用到动态数组，固定数组，数组的合并，数组的转置等等。
1 应用场景的具体分析还是先看实例,下面的工作表中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)
Next
ReDim temvarArr2(1 To UBound(varArr2)) '将B列数据写入动态一维数组
For i = 1 To UBound(varArr2)
temvarArr2(i) = varArr2(i, 1)
Next
'在数据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)
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 上述过程中有哪些是动态数组？哪些是固定数组呢？
我多年的VBA实践经验，全部浓缩在以下教程中：
来源：VBA语言专业教育
