[已解决]如何把表一相同的复制到表二不相同的复制到表三

潘宝荣

我手上有大量的表格数据要整理很多表格有些是相同有些不相同有些是部分相同，现在我要要一个如何把表一相同的复制到表二不相同的复制到表三求各位老师帮帮忙。《就像样表2一样》

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-13 06:37

………………

跳转到最佳答案楼层

dsmch

依据什么判断是否相同？

905743448

学习学习

fjmxwrs

什么是相同的，什么是不同的？？？与什么对比呢？

潘宝荣

fjmxwrs 发表于 2014-4-10 18:23
什么是相同的，什么是不同的？？？与什么对比呢？

我在做个样表二

dsmch

1. Sub Macro1()
   
2. Dim arr, d, i&, s1&, s2&, zf$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     zf = Join(Application.Index(arr, i, 0), ",")
   
7.     d(zf) = d(zf) + 1
   
8. Next
   
9. s2 = 1: s1 = 1
   
10. [a1:d1].Copy Sheet2.[a1]
    
11. [a1:d1].Copy Sheet3.[a1]
    
12. a = d.keys: b = d.items
    
13. For i = 0 To d.Count - 1
    
14.     If b(i) = 1 Then
    
15.         s2 = s2 + 1
    
16.         Sheet3.Cells(s2, 1).Resize(1, 4) = Split(a(i), ",")
    
17.     Else
    
18.         s1 = s1 + 1
    
19.         Sheet2.Cells(s1, 1).Resize(1, 4) = Split(a(i), ",")
    
20.     End If
    
21. Next
    
22. End Sub
    

复制代码

dsmch

………………

潘宝荣

dsmch 发表于 2014-4-13 06:37
………………

谢谢了

潘宝荣

可以在问下吗？一次可以多少条数据进行

潘宝荣

潘宝荣 发表于 2014-4-15 01:51
谢谢了

可以在问下吗？一次可以多少条数据进行