关于分类汇总的操作求助大家

依莫拉萨 · 发表于 2020-1-16 13:04

要求什么的都在附件里，请高手们帮帮小弟。再次谢过！

依莫拉萨 · 发表于 2020-1-16 13:43

本帖最后由依莫拉萨于 2020-1-16 13:58 编辑

另外再说一下，就是在名字相同的前提下，如果识别号不同，也要单独为一行显示出来
就像图中那种效果

依莫拉萨 · 发表于 2020-1-16 13:59

小弟手上有十几万条这样的数据要处理，请高手们帮帮小弟，再次谢过！

varytina · 发表于 2020-1-16 14:05

本帖最后由 varytina 于 2020-1-16 14:36 编辑

PQ方法供楼主参考，不明白扫我；VBA方法也很简单，
透视更简单

约定的童话 · 发表于 2020-1-16 14:33

本帖最后由约定的童话于 2020-1-16 14:40 编辑

搞定了没，楼主？
Sub 汇总()
Dim i, n, arr, brr, d As Object
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 4)
For i = 2 To UBound(arr)
      t = arr(i, 1) & arr(i, 2) & arr(i, 4)
      If Not d.exists(t) Then
         n = n + 1
         d(t) = n
         For j = 1 To 4
            brr(n, j) = arr(i, j)
         Next
      Else
         m = d(t)
         brr(m, 3) = brr(m, 3) + arr(i, 3)
      End If
Next
[l2].Resize(UBound(brr), 4) = brr
End Sub

静看流年RSSQ · 发表于 2020-1-16 14:38

约定的童话发表于 2020-1-16 14:33
搞定了没，楼主？

老师要上VBA 了不。哈哈。

顺带回楼主。

数据透视，在基础操作一下，还是简单。

当然 PQ 是优选。

约定的童话 · 发表于 2020-1-16 14:40

静看流年RSSQ 发表于 2020-1-16 14:38
老师要上VBA 了不。哈哈。

顺带回楼主。

咱来认识？？？

静看流年RSSQ · 发表于 2020-1-16 14:46

约定的童话发表于 2020-1-16 14:40
咱来认识？？？

不认识啊。

老师你是用VBA 的。

约定的童话 · 发表于 2020-1-16 14:50

静看流年RSSQ 发表于 2020-1-16 14:46
不认识啊。

老师你是用VBA 的。

吓我一跳，我以为又来错板块了，我答题不看板块的

依莫拉萨 · 发表于 2020-1-16 14:53

谢谢楼上各位老师

		自动登录	找回密码
密码			免费注册

[求助] 关于分类汇总的操作求助大家