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

feiaoli

因为工作需要，经常比对差异、重复、不重复名单，所以想制作一个小程序更为简单快捷，但是自己又不会VBA，所以请老师麻烦制作一下VBA

先谢谢各位老师了！ 具体如下：

数据列A B 列是不固定的、 输出列C D E 列也不是固定的


窗体中选择指定两列提取差异数据、重复数据或者所有不重复数据到指定列的VBA代码

点击相应的命令按钮提取差异数据、重复数据或者所有不重复数据到指定列！

选择指定两列提取不重复或重复数据到指定列.rar (10.16 KB, 下载次数: 157)

2013-7-5 10:25 上传

点击文件名下载附件

问题已经解决感谢蓝版 蓝桥玄霜 老师！！ 代码在12楼、附件13楼！

feiaoli

我确实不是拿来主义、是真的不会VBA。请老师多多费心！！！！！

feiaoli

老师们怎么啦！

蓝桥玄霜

1. Private Sub CommandButton1_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(2, 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. Select Case scl3
    
17.     Case "C", "c"
    
18.         For i = 1 To UBound(Arr2)
    
19.             If Not d.exists(Arr2(i, 1)) Then
    
20.                 n = n + 1
    
21.                 Cells(n, scl3) = Arr2(i, 1)
    
22.             End If
    
23.         Next
    
24.         Cells(1, scl3) = "差异列"
    
25.     Case "D", "d"
    
26.         For i = 1 To UBound(Arr2)
    
27.             If d.exists(Arr2(i, 1)) Then
    
28.                 n = n + 1
    
29.                 Cells(n, scl3) = Arr2(i, 1)
    
30.             End If
    
31.         Next
    
32.         Cells(1, scl3) = "重复列"
    
33.     Case "E", "e"
    
34.         For i = 1 To UBound(Arr2)
    
35.             d(Arr2(i, 1)) = ""
    
36.         Next
    
37.         Cells(2, scl3).Resize(d.Count, 1) = Application.Transpose(d.keys)
    
38.         Cells(1, scl3) = "全部数据"
    
39. End Select
    
40. End Sub
    

复制代码

feiaoli

老师们怎么啦！！！我觉得都应该做的了的、我真的不会VBA 、我觉得很实用的、只是我不会VBA 也并没有VBA供老师们修改、只求老师们给做一个。对我帮助很大的

蓝桥玄霜

请见附件。

feiaoli

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

老师您的代码我可以操作了、但是我想给同科室的其他同事用，函数我也会用，他们对代码一点也不知道、我想按照附件操作给他们、请老师按照附件做一下代码。不同的、相同的、以及整理在一块的三种形式。学生知道很难、请老师费心操心多耽误时间做一下。我再怎么搜也找不到这么全的答案。求老师了、您费心了！
我知道老师您一定可以做到的、耽误老师您时间了！！！！

feiaoli

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

老师或许我理解错误、窗口的命令是不同的对比两列的数据的情况

蓝桥玄霜

你的意思是要用3个按钮？输出列不一定在CDE列？
自己不懂VBA，还要教同事？

feiaoli

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

需要提取的数据列也不一定在AB列、输出列也不一定在CDE列是在窗口中选择的。
我是想请老师做这么一个小程序，方便工作中使用，请老师费心、、、、、