菜鸟求助！！！

qukl

本人初来学习，求助！！如何用VBA快速汇总学生成绩（具体见附件），谢谢！！

loirol

qukl

请老师们帮帮忙！！！

qukl

loirol老师,好像不对呢。

ykcbf1100

参与一下，字典经典用法

qukl

loirol老师：汇总表中按姓名要要从表1、表2、表3查找对应姓名的成绩，然后再汇总到汇总表中。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.19
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     For Each sht In Sheets
   
5.         If Val(sht.Name) Then
   
6.             arr = sht.UsedRange
   
7.             For i = 3 To UBound(arr)
   
8.                 s = arr(i, 2) & "|" & Val(sht.Name)
   
9.                 d(s) = arr(i, 4)
   
10.             Next
    
11.         End If
    
12.     Next
    
13.     With Sheets("汇总")
    
14.         r = .Cells(Rows.Count, 2).End(3).Row
    
15.         For j = 4 To 6
    
16.             For i = 3 To r
    
17.                 s = .Cells(i, 3) & "|" & j - 3
    
18.                 If d.exists(s) Then
    
19.                     .Cells(i, j).Value = d(s)
    
20.                 Else
    
21.                     .Cells(i, j).Value = ""
    
22.                 End If
    
23.             Next
    
24.         Next
    
25.     End With
    
26.     Set d = Nothing
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

qukl

ykcbf1100老师，对了。谢谢您！！

autohotey

qukl 发表于 2024-12-19 10:00
loirol老师：汇总表中按姓名要要从表1、表2、表3查找对应姓名的成绩，然后再汇总到汇总表中。

做效果表出来

loirol

qukl 发表于 2024-12-19 10:00
loirol老师：汇总表中按姓名要要从表1、表2、表3查找对应姓名的成绩，然后再汇总到汇总表中。

善用恢复功能，你打个名字在前面别人看不到

既然对了我就不看了，不对不对吧