求助分数段里面的单元格提取学生的姓名写进备注里

458863601

按照图片这样，把统计出来的各科的分数段的个数，把学生姓名和成绩全部写进备注里，

wengjl

先录制宏，再研究修改

蓝桥玄霜

批注的例子：

ykcbf1100

汇总统计，并加批注

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.30
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     b = [{90,80,70,60,50,40,30,20,10,0}]
   
6.     With Sheets("得分")
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         arr = .[a1].Resize(r, 17)
   
9.     End With
   
10.     For j = 3 To UBound(arr, 2)
    
11.         For i = 2 To UBound(arr)
    
12.             For x = 1 To UBound(b)
    
13.                 If arr(i, j) >= b(x) Then m = x + 2: Exit For
    
14.             Next
    
15.             s = arr(1, j) & "|" & arr(i, 2) & "|" & m
    
16.             If Not d.exists(s) Then
    
17.                 d(s) = Array(arr(i, 17) & arr(i, j), 1)
    
18.             Else
    
19.                 t = d(s)
    
20.                 t(0) = t(0) & Chr(10) & arr(i, 17) & arr(i, j)
    
21.                 t(1) = t(1) + 1
    
22.                 d(s) = t
    
23.             End If
    
24.         Next
    
25.     Next
    
26.     On Error Resume Next
    
27.     With Sheets("汇总")
    
28.         .UsedRange.Offset(2, 2).ClearComments
    
29.         .UsedRange.Offset(2, 2).ClearContents
    
30.         arr = .UsedRange
    
31.         For i = 2 To UBound(arr)
    
32.             If arr(i, 1) = Empty Then arr(i, 1) = arr(i - 1, 1)
    
33.             For j = 3 To UBound(arr, 2)
    
34.                 s = arr(i, 1) & "|" & arr(i, 2) & "|" & j
    
35.                 If d.exists(s) Then
    
36.                     .Cells(i, j) = d(s)(1)
    
37.                     .Cells(i, j).AddCommentThreaded (d(s)(0))
    
38.                 End If
    
39.             Next
    
40.         Next
    
41.     End With
    
42.     Set d = Nothing
    
43.     Application.ScreenUpdating = True
    
44.     MsgBox "OK！"
    
45. End Sub
    

复制代码

458863601

ykcbf1100 发表于 2024-5-30 13:12
参与一下。。。

没有提取学生的姓名和分数写进备注呢？

excel玉米

458863601

excel玉米 发表于 2024-5-30 14:21

为什么只有中心1有备注姓名，其他班级的没有呢？

458863601

458863601 发表于 2024-5-30 14:44
为什么只有中心1有备注姓名，其他班级的没有呢？

a列的学科是合并单元格哦？

458863601

458863601 发表于 2024-5-30 14:49
a列的学科是合并单元格哦？

我要的是a列科目合并