如何在结果中算出差值

ykcbf1100

于箱长 发表于 2024-2-22 11:32
如果遇到重名的时候，怎么整

你光看不出手啊，浪费你这大师才华了

zzpsx

limonet 发表于 2024-2-22 12:21
关键字：left join

运算结果按照我的表格就更好了。

ykcbf1100

参与一下，用字典做一个。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.2.22
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("Sheet1")
   
6.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 22)
   
8.     End With
   
9.     For i = 2 To UBound(arr)
   
10.         s = arr(i, 2)
    
11.         d(s) = i
    
12.     Next
    
13.     On Error Resume Next
    
14.     With Sheets("结果")
    
15.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
    
16.         brr = .[a1].Resize(r, 6)
    
17.         For i = 1 To UBound(brr) Step 5
    
18.             s = brr(i, 1)
    
19.             If d.Exists(s) Then
    
20.                 For j = 2 To 6
    
21.                     brr(i + 1, j) = arr(d(s), j + 1)
    
22.                     brr(i + 2, j) = arr(d(s), j + 12)
    
23.                     brr(i + 3, j) = arr(d(s), j + 1) - arr(d(s), j + 12)
    
24.                 Next
    
25.             End If
    
26.         Next
    
27.         .[a1].Resize(r, 6) = brr
    
28.     End With
    
29.     Set d = Nothing
    
30.     Application.ScreenUpdating = True
    
31.     MsgBox "OK！"
    
32. End Sub
    
33. 
    

复制代码

zzpsx

ykcbf1100 发表于 2024-2-22 13:47
参与一下，用字典做一个。

谢谢高手！很赞的代码。
实际情况中，结果这张sheet是空白。希望能点击按钮后在结果中出现截图所示的所有学生的估分差值：实考减去估分。学生姓名顺序打乱没关系。

于箱长

ykcbf1100 发表于 2024-2-22 13:32
你光看不出手啊，浪费你这大师才华了

我是整完了，没上传，就当练手了，感谢楼主出题

liulang0808

zzpsx 发表于 2024-2-22 12:37
谢谢高手，我运行了代码，没有反应，不知道哪里出问题了。

在AB列有结果

ykcbf1100

zzpsx 发表于 2024-2-22 13:59
谢谢高手！很赞的代码。
实际情况中，结果这张sheet是空白。希望能点击按钮后在结果中出现截图所示的所 ...

你的意思是：结果表全自动生成？

zzpsx

ykcbf1100 发表于 2024-2-22 15:26
你的意思是：结果表全自动生成？

是的，谢谢。

ykcbf1100

zzpsx 发表于 2024-2-22 15:49
是的，谢谢。

稍等一下，我一会写一个。