[已解决]如何汇总5个分表中某一列的数据，并剔除重复的数据

yvhanym

希望用公式把附件中1、2、3、4、5表中D列的数据复制到汇总表中的A列，如果有重复的进行剔除重复。谢谢

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2014-7-17 19:15

1. Sub tt()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. For Each aa In Sheets
   
4.     If aa.Name <> "汇总" Then
   
5.       arr = aa.Range("d1:d" & aa.Cells(Rows.Count, 4).End(3).Row)
   
6.         For Each Rng In arr
   
7.           d(Rng) = ""
   
8.         Next
   
9.     End If
   
10. Next
    
11. [a2].Resize(d.Count) = Application.Transpose(d.keys)
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

yvhanym

十五的月亮 发表于 2014-7-17 17:59
不要重复发帖，可以在原有的帖子顶一下

没有重复发帖，需求完全不一样了。

十五的月亮

不要重复发帖，可以在原有的帖子顶一下

新一

请模拟一下结果{:011:}

26759761@qq.com

1. Sub tt()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. For Each aa In Sheets
   
4.     If aa.Name <> "汇总" Then
   
5.       arr = aa.Range("d1:d" & aa.Cells(Rows.Count, 4).End(3).Row)
   
6.         For Each Rng In arr
   
7.           d(Rng) = ""
   
8.         Next
   
9.     End If
   
10. Next
    
11. [a2].Resize(d.Count) = Application.Transpose(d.keys)
    
12. End Sub
    

复制代码

yorkchenshunan

已附上公式结果，看看是否是你需要的

李建军

sheet1为答案。 具体数量就是所有的sheetA列放到一起 做个数透或者高级筛选，函数神马的 反正是把重复的就剔除。 望给分。。新手报名钱不够呀。。。{:191:}

yvhanym

如果还需要对日期进行排序，怎么办？

yvhanym

26759761@qq.com 发表于 2014-7-17 19:15

如果还需要对日期进行排序，怎么办？