【数据筛选问题，恳请大神求助！！！】

sp1rit

【数据筛选问题，恳请大神求助！！！】
万分感激！！！

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


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

如图举例，再次感谢！！！

sp1rit

恳请大神赐教！！！

大灰狼1976

数据较多建议用VBA解决。

喜多多

要具体实例，才好决定用什么方法（这就是伟人说过具体问题具体分析）

sp1rit

大灰狼1976 发表于 2017-8-21 17:09
数据较多建议用VBA解决。

就两列数据，怎么搞呢

sp1rit

喜多多 发表于 2017-8-21 17:37
要具体实例，才好决定用什么方法（这就是伟人说过具体问题具体分析）

实例如图啊

喜多多

sp1rit 发表于 2017-8-21 17:51
实例如图啊

要的是上万条那个实例

大灰狼1976

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

复制代码

china_hxx

比较忙and比较懒，就不自己再写测试数据了。

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

sp1rit

大灰狼1976 发表于 2017-8-22 08:54

非常感谢。先试试去了