[已解决]不重复计数的数组公式因为数据量太大死了，请教更好的办法

kw868

用下面这个数组公式 每次都要先对A列排序，而且运行很慢（数据有5万行），请高手指点跟简单快速的公式（因为计算结果还要引用到另外的表，所以不能用透视表）！
G2 =COUNT(0/(FREQUENCY(-OFFSET($B$1,MATCH(E2,$A$2:$A$34862,),,COUNTIF($A$2:$A$34862,E2)),-OFFSET($B$1,MATCH(E2,$A$2:$A$34862,),,COUNTIF($A$2:$A$34862,E2)))))另外有高手指点用VBA，可惜本人对VBA一窍不通，请高手提供一段VBA代码，制作一个宏按钮让我执行去求G列的值。

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-8-8 08:07

回复 kw868 的帖子

不重复计数(VBA)(字典).rar (481.34 KB, 下载次数: 133)

2011-8-8 08:07 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

回复 kw868 的帖子

不重复计数(VBA)(字典).rar (481.34 KB, 下载次数: 133)

2011-8-8 08:07 上传

点击文件名下载附件

youfang

帅哥都回帖了，问题应该解决了吧

xyf2210

还是字典来得快

kw868

谢谢2楼“那么的帅 ” 答案正确，也很快！还要请教：我正式文件是跨两个工作表取数的，条件是《合并》工作表的D列等于《进度》工作表的A列,取《合并》工作表G列的不重复计数的值到《进度》工作表的G列。请问2楼这个“字典”代码怎么改？

兰色幻想

你重新上传数据源表吧。把要求重新说明一下

kw868

本表的G列数值我现在是用数组公式计算出来，但是因为“合计”这个表的数据有5万行，用数组公式太慢，希望请高手帮忙在“ECO达成”这个按钮上替我写一段VBA宏代码来求出G列的值（本表G列值=以本表A列与“合并”工作表的D列相同时，求“合并”表中的G列对应的不重复计数）!
  现在G列的数组公式是 G5==COUNT(0/(FREQUENCY(-OFFSET(合并!$G$1,MATCH($A5,合并!$D$2:$D$40000,),,COUNTIF(合并!$D$2:$D$40000,$A5)),-OFFSET(合并!$G$1,MATCH($A5,合并!$D$2:$D$40000,),,COUNTIF(合并!$D$2:$D$40000,$A5)))))

现在“按钮5”里面的宏代码是二楼“那么的帅”高手替我写的，但是我提供的是一楼的示例文件，所以“按钮5”的代码是正确的，可以要迁移到这个正式表里面了，因为数据跨表引用，不懂怎么改代码，还要继续请教，请帮忙我改写一段VBA宏按钮的字典可以适应到“进度”这个表的“ECO达成”按钮上！我这样说很罗嗦，我的需求就亲看我的截图吧，比较清楚！

G列求值的截图说明