Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3203|回复: 5

[已解决]重复项合并并且计数

[复制链接]
发表于 2014-11-27 11:59 | 显示全部楼层 |阅读模式
本帖最后由 billyzhang0609 于 2014-11-27 12:53 编辑

数据太多,如何将完全相同的项目合并,然后计数?
最佳答案
2014-11-27 12:25
  1. Sub Macro1()
  2. Dim arr, d, i&
  3. Set d = CreateObject("scripting.dictionary")
  4. arr = Range("a1").CurrentRegion
  5. For i = 1 To UBound(arr)
  6.     d(arr(i, 1)) = d(arr(i, 1)) + 1
  7. Next
  8. [c1].Resize(d.Count) = Application.Transpose(d.keys)
  9. [d1].Resize(d.Count) = Application.Transpose(d.items)
  10. End Sub
复制代码

计数并合并

计数并合并

重复项合并并且计数.zip

5.8 KB, 下载次数: 14

发表于 2014-11-27 12:25 | 显示全部楼层    本楼为最佳答案   
  1. Sub Macro1()
  2. Dim arr, d, i&
  3. Set d = CreateObject("scripting.dictionary")
  4. arr = Range("a1").CurrentRegion
  5. For i = 1 To UBound(arr)
  6.     d(arr(i, 1)) = d(arr(i, 1)) + 1
  7. Next
  8. [c1].Resize(d.Count) = Application.Transpose(d.keys)
  9. [d1].Resize(d.Count) = Application.Transpose(d.items)
  10. End Sub
复制代码
回复

使用道具 举报

发表于 2014-11-27 12:44 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2014-11-27 12:54 | 显示全部楼层
天棋 发表于 2014-11-27 12:44
数据透视表也可以

数据少的时候是可以,目前我的数据种类太多。透视表就不方便了。
回复

使用道具 举报

发表于 2014-11-27 12:58 | 显示全部楼层
billyzhang0609 发表于 2014-11-27 12:54
数据少的时候是可以,目前我的数据种类太多。透视表就不方便了。

透视表跟数据多少还有关系,他最不怕数据多了
回复

使用道具 举报

 楼主| 发表于 2014-11-27 18:59 | 显示全部楼层
天棋 发表于 2014-11-27 12:58
透视表跟数据多少还有关系,他最不怕数据多了

实际情况不允许,因为后续还要做其他步骤。
数据透视表通常是个不错的选择,谢谢啦。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:21 , Processed in 3.031987 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表