A列和B列合并到C列

nnsea

Sub 提取两列不重复数据1()
Dim d, Temp
Dim r&, r1
Dim arr, arr1
Set d = CreateObject("Scripting.Dictionary")
r = Range("A65536").End(xlUp).Row
r1 = Range("B65536").End(xlUp).Row
arr = Range("A1:A" & r).Value
arr1 = Range("B1:B" & r1).Value
For Each Temp In arr
d(Temp) = 1
Next
For Each Temp In arr1
d(Temp) = 1
Next
Range("C1").Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub