窗体中选择指定两列提取不重复或重复数据到指定列

tjj12345

蓝桥老师就是强大，谢谢分享，这个程序能解决许多人实际工作中的难题！

skiss

蓝老师写的这个太强大了，偶然发现了这个帖子，
但是发现一个问题，希望老师能帮助
在使用差异列的时候，数据源A列数据不能多于B列，否则差异列按钮点击后就会是空的，蓝老师能再帮忙看一下吗

skiss

蓝桥玄霜 发表于 2016-9-7 09:08
建议上传表格附件来说明问题。

蓝老师，可以帮忙看看22楼的问题吗

蓝桥玄霜

1. Private Sub CommandButton6_Click()
   
2. Dim Arr1, Arr2, i&, Myr&, l1, l2, scl3, d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Set d1 = CreateObject("Scripting.Dictionary")
   
5. l1 = TextBox1.Text
   
6. l2 = TextBox2.Text
   
7. scl3 = TextBox3.Text
   
8. Cells(1, scl3).Resize(500, 1).ClearContents
   
9. Myr = Cells(65536, l1).End(xlUp).Row
   
10. Arr1 = Cells(2, l1).Resize(Myr - 1)
    
11. Myr = Cells(65536, l2).End(xlUp).Row
    
12. Arr2 = Cells(2, l2).Resize(Myr - 1)
    
13. For i = 1 To UBound(Arr1)
    
14.     d(Arr1(i, 1)) = ""
    
15. Next
    
16. n = 1
    
17. For i = 1 To UBound(Arr2)
    
18.     If Not d.exists(Arr2(i, 1)) Then
    
19.         n = n + 1
    
20.         Cells(n, scl3) = Arr2(i, 1)
    
21.     End If
    
22. Next
    
23. For i = 1 To UBound(Arr2)
    
24.     d1(Arr2(i, 1)) = ""
    
25. Next
    
26. For i = 1 To UBound(Arr1)
    
27.     If Not d1.exists(Arr1(i, 1)) Then
    
28.         n = n + 1
    
29.         Cells(n, scl3) = Arr1(i, 1)
    
30.     End If
    
31. Next
    
32. Cells(1, scl3) = "差异列"
    
33. End Sub
    

复制代码

春风得意时

谢谢  学习一下

xiangheping

蓝桥玄霜 发表于 2018-6-2 11:55

大佬，如果数据多余2列，有5列甚至更多能解决吗