excel 中 怎么用vba筛选出两列不重复的内容
要用vba实现,两列数据量大,并且每月都要往里加入新数据,想搞个一劳永逸的办法,请高手指教,谢谢!...
要用vba实现,两列数据量大,并且每月都要往里加入新数据,想搞个一劳永逸的办法,请高手指教,谢谢!
展开
展开全部
用并集的方法解决,可参考我空间的并集
以下代码完成
设你的数据在A、B两列中,把两列中不重复数据提取到C列
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
你只需要把你实际的数据列把A、B、C换成你的实际列标即可,A、B列可增减数据
以下代码完成
设你的数据在A、B两列中,把两列中不重复数据提取到C列
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
你只需要把你实际的数据列把A、B、C换成你的实际列标即可,A、B列可增减数据
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |