求助：用VBA字典法进行联合查找，引用数据后求取平均分

game178 · 发表于 2024-1-17 13:13

本帖最后由 game178 于 2024-1-18 21:45 编辑

教师结果的意图是：统计所有教师任教班级数
（教师统计按照班级赋分表里面先科目再班级，从上到下，从左到右的顺序，也可以调整，反正就是要统计完），

并把该教师涉及的相应班级+科目对应的A值，B值数据罗列出来，最后求取A值，B值得平均分。

如CFY涉及高一1.5化学（2个班级）。
故在教师结果中就应该罗列出：
2个A值【高一1化学。高一5化学】，
2个B值【高一化学，高一化学】

再比如LJY涉及高一2物理，高二1物理，高三1通用，高三8信息（4个班级）。
故在教师结果中就应该罗列出：
4个A值【高一2物理，高二1物理，高三1通用，高三8信息】，
4个B值【高一物理，高二物理，高三通用，高三信息】

最后对每个教师的A值，B值分别求平均值

3190496160 · 发表于 2024-1-17 17:11

Sub 班级赋分()
Dim ar As Variant, br As Variant
Dim i As Long, r As Long, rs As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("学科核算")
r = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range(.Cells(1, 1), .Cells(r, 14))
End With
For j = 3 To UBound(ar, 2) - 1
For i = 2 To UBound(ar)
      If ar(i, 14) = "A" Then
         zd = ar(i, 1) & ar(i, 2)
      Else
         zd = ar(i, 1)
      End If
      zf = ar(i, 14) & ar(1, j)
      d(zd) = i
      d(zf) = j
Next i
Next j

With Sheets("班级赋分")
rs = .Cells(Rows.Count, 1).End(xlUp).Row
br = .Range(.Cells(1, 1), .Cells(rs, "aj"))
For j = 15 To UBound(br, 2)
      If br(1, j) = "" Then br(1, j) = br(1, j - 1)
      zf = br(1, j) & br(2, j)
      If j < 26 Then
         llh = 2
      Else
         llh = 1
      End If
      For i = 2 To UBound(br)
         zd = br(i, llh)
         xh = d(zd)
         lh = d(zf)
         If xh <> "" And lh <> "" Then
            br(i, j) = ar(xh, lh)
         End If
      Next i
Next j
.Range(.Cells(1, 1), .Cells(rs, "aj")) = br
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-1-17 17:12

VBA查找、引用、求和.rar (43.39 KB, 下载次数: 26)

3190496160 · 发表于 2024-1-17 17:13

只写了班级赋分汇总的代码，供参考，而且，在核算表中有两行高三全，不知道是什么意思

yynrzwh · 发表于 2024-1-17 17:42

班级赋分

VBA查找、引用、求和.rar (56.27 KB, 下载次数: 17)

game178 · 发表于 2024-1-17 19:43

3190496160 发表于 2024-1-17 17:13
只写了班级赋分汇总的代码，供参考，而且，在核算表中有两行高三全，不知道是什么意思

全是代表适用于整个年级，不分班级

yynrzwh · 发表于 2024-1-17 19:53

VBA查找、引用、求和.rar (81.33 KB, 下载次数: 13)

game178 · 发表于 2024-1-17 20:30

本帖最后由 game178 于 2024-1-18 10:01 编辑

之前那个表述有点模糊，逻辑有点问题，已经重新编辑

3190496160 · 发表于 2024-1-17 21:22

game178 发表于 2024-1-17 19:43
全是代表适用于整个年级，不分班级

核算表中有两行高三全

game178 · 发表于 2024-1-17 21:36

本帖最后由 game178 于 2024-1-18 10:02 编辑

谢谢提醒，已经重新上传了

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

[求助] 求助：用VBA字典法进行联合查找，引用数据后求取平均分

评分