多表合计排名（用函数）

Anny-Zh

分表汇总排名次.rar (14.62 KB, 下载次数: 9)

2019-10-18 15:23 上传

点击文件名下载附件

我有n个这样的表，然后需要根据不同科目汇总排名，想只用函数实现，麻烦各位帮帮忙


如果改成这样呢，应该可以实现了吧

micch

首先得有个人员名单才好，否则用函数多表去重怪麻烦的

Anny-Zh

micch 发表于 2019-10-18 14:19
首先得有个人员名单才好，否则用函数多表去重怪麻烦的

我也想过这个问题，直接在每个表做个去重人员名单再来排名可以吗？

micch

Anny-Zh 发表于 2019-10-18 14:22
我也想过这个问题，直接在每个表做个去重人员名单再来排名可以吗？

可以啊，分步完成，每个表做一次高级筛选，得到各班名单，然后sumifs得出总分，然后在汇总表生成透视表，然后排序。或者在汇总表用函数得到总表。N多个表的话，不如代码完成省事。

或者也可以试试直接透视表看行不行，透视表不熟悉不知道能不能做到

dipperrrr

为啥非要用函数呢？这样很麻烦的。用PQ多方便啊，还能自动刷新。

Anny-Zh

micch 发表于 2019-10-18 14:28
可以啊，分步完成，每个表做一次高级筛选，得到各班名单，然后sumifs得出总分，然后在汇总表生成透视表， ...

就是用透视表的话，每个表都做个透视表太麻烦了，想说能不能直接一个函数实现，下次又有新的分数就能直接覆盖原来的表得出结果了。

Anny-Zh

dipperrrr 发表于 2019-10-18 14:44
为啥非要用函数呢？这样很麻烦的。用PQ多方便啊，还能自动刷新。

因为我不单单要做排名数据，还有其他的分析表，然后班次的数据是固定的，但是每次考完又得全部重新操作一次就很麻烦，想把其他数据表贴在同一个工作簿里，然后只要考试成绩一出来，直接贴回这个工作簿里，我的数据表就全部出来了

libo5563

vba 不懂  反正让pq来做是很简单的，先多表合并，按班级 人名分组，在组里筛科目，对成绩求和，再排序， 用函数来的话，考虑到不同班级里人名还有可能重复，这几个嵌套就够受的，非要指定用函数的话，只能。。。。。找大神

Anny-Zh

libo5563 发表于 2019-10-18 14:49
vba 不懂  反正让pq来做是很简单的，先多表合并，按班级 人名分组，在组里筛科目，对成绩求和，再排序， 用 ...

我的每个班级表的数据太大了合并会崩的

micch

Anny-Zh 发表于 2019-10-18 14:45
就是用透视表的话，每个表都做个透视表太麻烦了，想说能不能直接一个函数实现，下次又有新的分数就能 ...

透视表可以多个工作表生成一个透视表，多字段透视表；不太会，只好代码做一个了，函数一步到位怕是做不到了，函数需要通过辅助来完成

1. Sub test()
   
2.     Application.DisplayAlerts = False
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For Each sh In Sheets
   
5.         If sh.Name <> "排名" Then
   
6.             arr = Intersect(sh.UsedRange, sh.[a:c])
   
7.             For i = 1 To UBound(arr)
   
8.                 If InStr("语文@数学@英语", arr(i, 2)) Then
   
9.                     d(sh.Name & "@" & arr(i, 1)) = arr(i, 3) + d(sh.Name & "@" & arr(i, 1))
   
10.                 End If
    
11.             Next
    
12.         End If
    
13.     Next
    
14.     With Sheets("排名")
    
15.         .[b2].Resize(d.Count, 3).ClearContents
    
16.         .[b2].Resize(d.Count) = Application.Transpose(d.keys)
    
17.         .[d2].Resize(d.Count) = Application.Transpose(d.items)
    
18.         .[a2].Resize(d.Count).Formula = "=row()-1"
    
19.         .[b2].Resize(d.Count).TextToColumns OtherChar:="@"
    
20.         .[b2].Resize(d.Count, 3).Sort .[d1], 2
    
21.     End With
    
22.     Application.DisplayAlerts = True
    
23. End Sub

复制代码