查卷后，更改部分学生成绩

13574763456

求助：要在表1中查到这些学生的对应科目成绩，并将表2红色部分成绩输入对应科目单元格中。


由于数据量较大，请求用VBA完成，且不受增加两表人数限制。

13574763456

补充：要在表1中查到表2这些学生的对应科目成绩，并将表2红色部分（没有成绩的不改哦）成绩输入对应科目中。

13574763456

求大侠伸出援手

lsc900707

用字典匹配的问题。

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet2.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 3 To UBound(arr, 2)
   
6.             s = arr(i, 1) & arr(i, 2) & arr(1, j)
   
7.             If Len(arr(i, j)) Then d(s) = arr(i, j)
   
8.         Next
   
9.     Next
   
10.     brr = [a1].CurrentRegion
    
11.     For i = 2 To UBound(brr)
    
12.         For j = 3 To UBound(brr, 2)
    
13.             s = brr(i, 1) & brr(i, 2) & brr(1, j)
    
14.             If d.exists(s) Then brr(i, j) = d(s)
    
15.         Next
    
16.     Next
    
17.     [a1].CurrentRegion = brr
    
18.     MsgBox "成绩已更正！"
    
19.     Set d = Nothing
    
20. End Sub

复制代码

zmj9151

请测试一下

lsc900707

参考测试附件：

zpy2

数量大，可能要多人协作了，也可以试试网页提交

13574763456

lsc900707 发表于 2018-10-8 08:15
参考测试附件：

谢谢，已经测试，可行。太谢谢了

13574763456

zmj9151 发表于 2018-10-8 07:42
请测试一下

可行，太谢谢啦

vvw123

zmj9151 发表于 2018-10-8 07:42
请测试一下

你好，如果我按照班级、姓名、考号来制作表格，那又需要怎样修改代码、谢谢，麻烦了