Excel精英培训网

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

[已解决]求相同个数

[复制链接]
发表于 2014-12-3 20:12 | 显示全部楼层 |阅读模式
本帖最后由 mmc998 于 2014-12-4 19:53 编辑

表里面的公式:=SUM(COUNTIF($A8:$D8,F$1:F$6)),请使用vba处理,工作表传不上来,请量解。
最佳答案
2014-12-4 11:38
………………
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-12-3 20:18 | 显示全部楼层
空的试下能不能上传.rar (3.83 KB, 下载次数: 8)
回复

使用道具 举报

 楼主| 发表于 2014-12-3 20:28 | 显示全部楼层
Book4码.zip (50.18 KB, 下载次数: 10)
回复

使用道具 举报

发表于 2014-12-4 11:36 | 显示全部楼层
  1. Sub Macro1()
  2. Dim arr, brr, crr, d, i&, j%, k%, s%
  3. arr = Range("a8").CurrentRegion
  4. brr = Range("f1").CurrentRegion
  5. ReDim d(1 To UBound(brr, 2))
  6. ReDim crr(1 To UBound(arr), 1 To UBound(brr, 2))
  7. For j = 1 To UBound(brr, 2)
  8.     Set d(j) = CreateObject("scripting.dictionary")
  9.     For i = 1 To UBound(brr)
  10.         d(j)(brr(i, j)) = ""
  11.     Next
  12. Next
  13. For i = 1 To UBound(arr)
  14.     For j = 1 To UBound(brr, 2)
  15.         s = 0
  16.         For k = 1 To UBound(arr, 2)
  17.             If d(j).exists(arr(i, k)) Then s = s + 1
  18.         Next
  19.         crr(i, j) = s
  20.     Next
  21. Next
  22. Range("p8").Resize(UBound(crr), UBound(crr, 2)) = crr
  23. End Sub
复制代码
回复

使用道具 举报

发表于 2014-12-4 11:38 | 显示全部楼层    本楼为最佳答案   
………………

1.rar

25.24 KB, 下载次数: 33

回复

使用道具 举报

 楼主| 发表于 2014-12-4 19:34 | 显示全部楼层
dsmch 发表于 2014-12-4 11:38
………………

运行时错误'7'   内存溢出

点评

用附件说明问题  发表于 2014-12-4 20:22
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 14:13 , Processed in 0.877499 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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