哪个大神能帮我完成这个表格呀？

zxy3467

帮我把第一个表格中的数据按个人流水帐中的要求罗列出来，谢谢！

jiny680p

高三（14）班学生在校情况登记.zip (62.65 KB, 下载次数: 7)

2017-3-1 09:37 上传

点击文件名下载附件

应该发到公式区

Chip_Kenny

try this:

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Not Target.Address = "$B$1" Then Exit Sub
   
3. Dim ar As Variant, d As Object, k, t, b(), c
   
4. c = Array(0, 1, 3, 4, 5, 6, 7, 8, 9, 10)
   
5. Set d = CreateObject("scripting.dictionary")
   
6. k = Sheets(3).[d1].Value
   
7. ar = Sheets(1).[a1].CurrentRegion.Value
   
8. For i = 2 To UBound(ar)
   
9.     If Not d.exists(ar(i, 2)) Then
   
10.         d(ar(i, 2)) = "|" & i
    
11.     Else
    
12.         d(ar(i, 2)) = d(ar(i, 2)) & "|" & i
    
13.     End If
    
14. Next
    
15. t = Split(d(k), "|")
    
16. ReDim b(1 To UBound(t), 1 To 9)
    
17. For i = 1 To UBound(t)
    
18.     For j = 1 To UBound(c)
    
19.         b(i, j) = ar(t(i), c(j))
    
20.     Next
    
21. Next
    
22. [a4].Resize(UBound(ar), 9).ClearContents
    
23. [a4].Resize(UBound(b), 9) = b
    
24. End Sub

复制代码

zxy3467

jiny680p 发表于 2017-3-1 09:38
应该发到公式区

谢谢你！我不是很熟悉

zxy3467

Chip_Kenny 发表于 2017-3-1 10:13
try this:

谢谢你，帮我解决了一个大问题

zxy3467

你们真利害，我弄了三天都没做好，你们一会就帮我搞定了，再次向你们表示感谢！！

zxy3467

jiny680p 发表于 2017-3-1 09:38
应该发到公式区

你能再帮我优化一下吗？我发现你这个个人数据只能统计到555行，不够用，我要记录半年，有40多个学生，每天都有10多行记录，我直接把公式改成5555，发现不能显示。班级数据汇总不能按学号排序，能帮忙解决吗？

jiny680p

高三（14）班学生在校情况登记.zip (64.79 KB, 下载次数: 6)

2017-3-3 15:59 上传

点击文件名下载附件

这是数组公式，要三键结束。
名字按学号排序通常是做不到的；可以使用Excel的自定义序列。

zxy3467

jiny680p 发表于 2017-3-3 16:00
这是数组公式，要三键结束。
名字按学号排序通常是做不到的；可以使用Excel的自定义序列。

谢谢你，受教了，一直不明白这个，好些表格都卡在这个地方做不下去，真心感谢！！！