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

feiaoli

蓝桥玄霜 发表于 2013-7-5 16:59
你的意思是要用3个按钮？输出列不一定在CDE列？
自己不懂VBA，还要教同事？

篮板您别误会、您的代码完全可以解决我的问题了、我只是想操作更方便一些。

就如您所说的，数据源A B 列不固定、输出列C D E也不是固定的

（A B 列是根据数据源随机选择、C D E 列 是数据输出选择指定的列）

麻烦您回来后再给做一下、感激不尽、、、

蓝桥玄霜

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

复制代码

蓝桥玄霜

请见附件。

feiaoli

蓝桥玄霜 发表于 2013-7-6 14:05
请见附件。

太神奇了、蓝版！！！感激的五体投地！！！！再次谢谢老师！！！！！

{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}

选择指定两列提取不重复或重复数据到指定列（excelhome蓝桥玄霜老师）.rar (12.06 KB, 下载次数: 165)

2013-7-6 21:55 上传

点击文件名下载附件

帮了大忙了！！工作节省时间至少90%。永久收藏了！！

今天回老家了、所以回帖晚了点！ 再次感谢！！

ywb1

感谢分享!收藏学习

沙漠滴雨

蓝桥玄霜 发表于 2013-7-6 14:05
请见附件。

老师，您的程序真的是太强了。

有一小小的问题：

如果我没有输入比对列及输出列，单击“差异列”、“重复列”、“全部数据”三个按钮，就会弹出——




这时能否不弹出此对话框，而是提示：“请输入比对列和输出列字母”？

清静远

如果是两个文件怎么解决呢？

清静远

在不同文件里又该怎样对比？

清静远

蓝桥玄霜 发表于 2013-7-5 14:46

如果两列在不同文件里，怎么对比？请教了！

蓝桥玄霜

清静远 发表于 2016-9-5 11:14
如果两列在不同文件里，怎么对比？请教了！

建议上传表格附件来说明问题。