Excel精英培训网

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

【数据筛选问题,恳请大神求助!!!】

[复制链接]
发表于 2017-8-21 16:41 | 显示全部楼层 |阅读模式
【数据筛选问题,恳请大神求助!!!】
万分感激!!!

问题描述:
有A列、B列两列数据,不能打乱对应关系,且A、B两列数据各自均有重复项。
现在需要将B列不重复项对应A列不重复项的次数计算出来。。。


恳请大神赐教!万分感激!!!

如图举例,再次感谢!!!

QQ截图20170821162834.png




excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2017-8-21 16:42 | 显示全部楼层
回复

使用道具 举报

发表于 2017-8-21 17:09 | 显示全部楼层
回复

使用道具 举报

发表于 2017-8-21 17:37 | 显示全部楼层
要具体实例,才好决定用什么方法(这就是伟人说过具体问题具体分析)
回复

使用道具 举报

 楼主| 发表于 2017-8-21 17:50 | 显示全部楼层
大灰狼1976 发表于 2017-8-21 17:09
数据较多建议用VBA解决。

就两列数据,怎么搞呢
回复

使用道具 举报

 楼主| 发表于 2017-8-21 17:51 | 显示全部楼层
喜多多 发表于 2017-8-21 17:37
要具体实例,才好决定用什么方法(这就是伟人说过具体问题具体分析)

实例如图啊
回复

使用道具 举报

发表于 2017-8-21 17:53 | 显示全部楼层

要的是上万条那个实例
回复

使用道具 举报

发表于 2017-8-22 08:54 | 显示全部楼层
  1. Sub aaa()
  2. Dim arr, i&, r&, d As Object, c
  3. Set d = CreateObject("scripting.dictionary")
  4. arr = [a1].CurrentRegion
  5. For i = 2 To UBound(arr)
  6.   If InStr(d(arr(i, 2)) & ",", "," & arr(i, 1) & ",") = 0 Then d(arr(i, 2)) = d(arr(i, 2)) & "," & arr(i, 1)
  7. Next i
  8. ReDim arr(1 To d.Count, 1 To 2)
  9. For Each c In d.keys
  10.   r = r + 1
  11.   arr(r, 1) = c
  12.   arr(r, 2) = UBound(Split(d(c), ","))
  13. Next c
  14. [d2].Resize(r, 2) = arr
  15. End Sub
复制代码
回复

使用道具 举报

发表于 2017-8-22 09:13 | 显示全部楼层
比较忙and比较懒,就不自己再写测试数据了。

方法:
1.先对AB两列查重,AB同时相同的删除。
2.根据b列内容汇总,统计有几个重复就欧克了。
VBA比较简单
回复

使用道具 举报

 楼主| 发表于 2017-8-22 17:18 | 显示全部楼层

非常感谢。先试试去了
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-6-13 13:13 , Processed in 0.347080 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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