excel期中试卷答案_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
excel期中试卷答案
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢查看: 2566|回复: 22
如何将多次考试成绩数据以班级、姓名为查询依据，依次从前往后汇总到总表中来
阅读权限20
在线时间 小时
本帖最后由 daly3721 于
08:52 编辑
向zhaogang1960版主求助：希望的功能是：如何将多次考试成绩数据以班级、姓名为查询依据，依次从前往后汇总到总表中来，谢谢！
说明：1、班级、姓名固定不变。
& && && &2、总表现在的样子就汇总后要达的效果
'每次考试考号不一，不能以考号为依据汇总，但若只是以名字为依据来汇总，又有同名同姓现象，所以以班级，姓名为查询依据汇总较为合理。
(126.02 KB, 下载次数: 4)
‘同班也有同名的情况毕竟可能性小，即使有，也会被改成不同。每次考试的考号不一致，不能以考号为查询依据汇总。也不需要表头什么的，因为要汇总后用于打印成绩条什么的，不纠结于此，反正希望实现这样就行。里面的代码是借用的，仅供参考。敬请zhaogang1960关注，也请各路高手出手 帮忙实现一下，谢谢。
阅读权限100
在线时间 小时
Sub lqxs()
& & Dim Mypath$, MyFile$, arr, i&, j&, c%, x$, d As Object, Arr1
& & Application.ScreenUpdating = False
& & Set d = CreateObject(&scripting.dictionary&)
& & Sheet1.Activate: c = 3
& & [d:z].ClearContents
& & Arr1 = Range(&a1:c& & [a65536].End(xlUp).Row)
& & For i = 2 To UBound(Arr1)
& && && &d(Arr1(i, 2) & &,& & Arr1(i, 3)) = i
& & Next
& & Mypath = ThisWorkbook.Path & &\成绩册\&
& & MyFile = Dir(Mypath & &*.xls&)
& & Do While MyFile && &&
& && &&&With GetObject(Mypath & MyFile)
& && && && &arr = .Sheets(1).UsedRange
& && && && &.Close False
& && &&&End With
& && &&&For j = 4 To UBound(arr, 2)
& && && && &c = c + 1: Cells(1, c) = arr(1, j)
& && && && &For i = 2 To UBound(arr)
& && && && && & x = arr(i, 2) & &,& & arr(i, 3)
& && && && && & If d.exists(x) Then
& && && && && && &&&Cells(d(x), c) = arr(i, j)
& && && && && & End If
& && && && &Next
& && &&&Next
& && &&&MyFile = Dir()
& & Loop
& & Application.ScreenUpdating = True
& & MsgBox &汇总完成！& & Space(20), vbInformation, &提示&
End Sub
阅读权限100
在线时间 小时
请见附件。
11:02 上传
点击文件名下载附件
33.96 KB, 下载次数: 154
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
请见附件。
版主的代码新凝练简洁高效，每一句都值得学习。无私的帮助更是让人感动。真正是学习的好地方，不仅能学习知识，也结识到一群好人。
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
正在学习欣赏蓝桥玄霜版主的代码，其它的还能慢慢理解，但
Sheet1.Activate: c = 3
c = c + 1: Cells(1, c) = arr(1, j)
实在搞不懂，网上搜查学习也无相关的资料，请你不吝赐教，点拨一下，是什么意思。谢谢
阅读权限100
在线时间 小时
& & & & & & & &
Sheet1.Activate: c = 3
c = c + 1: Cells(1, c) = arr(1, j)
其中的冒号：表示把2句代码连起来，没有什么意义。
因为成绩是从第4列开始的，为了在循环中用c=c+1，所以先赋值c=3
阅读权限70
在线时间 小时
蓝桥玄霜 发表于
Sheet1.Activate: c = 3
c = c + 1: Cells(1, c) = arr(1, j)
其中的冒号：表示把2句代码连起来，没有什 ...
版主能否给看个问题？去重复的，列太多，公式估计可能性不大，能给写个代码吗？
(11.81 KB, 下载次数: 22)
19:49 上传
点击文件名下载附件
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
Sheet1.Activate: c = 3
c = c + 1: Cells(1, c) = arr(1, j)
其中的冒号：表示把2句代码连起来，没有什 ...
版主，回复这么快，好人一生平安！又学到了一点。
阅读权限100
在线时间 小时
DAHAI31415 发表于
版主能否给看个问题？去重复的，列太多，公式估计可能性不大，能给写个代码吗？
是什么条件？全部列相同算是重复还是某几列相同？
一般都可用字典解决。
阅读权限70
在线时间 小时
蓝桥玄霜 发表于
是什么条件？全部列相同算是重复还是某几列相同？
一般都可用字典解决。
1、以姓名为条件，首先要将姓名去重复
2、在姓名去重复条件下，将列去重复，所有重复的算一列，以此类推，并横向排列
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}