把“成绩表”分成若干的分表

jczbs · 发表于 2018-7-2 21:42

本帖最后由 jczbs 于 2018-7-2 21:45 编辑

求各位高手看看，如何根据“成绩表”的C列（班级）分成若干的班级成绩表，如：分成“前卫1”等表册。注意：C列有多少个班，则分成多少个似原表中“前卫1”的表册。

学生成绩表.zip (79.01 KB, 下载次数: 17)

朱荣兴 · 发表于 2018-7-2 22:33

提示: 作者被禁止或删除内容自动屏蔽

liulang0808 · 发表于 2018-7-3 06:52

lenghonghai601 · 发表于 2018-7-3 07:29

Sub 按钮26_Click()
Dim d As Object, sh As Worksheet
Set d = CreateObject("scripting.dictionary")
arr = Worksheets("成绩表").Range("a4").CurrentRegion
For i = 4 To UBound(arr)
If Not d.exists(arr(i, 3)) Then
Set d(arr(i, 3)) = Union(Worksheets("成绩表").Cells(i, 1).Resize(1, 12), Worksheets("成绩表").Cells(3, 1).Resize(1, 12))
Else
Set d(arr(i, 3)) = Union(d(arr(i, 3)), Worksheets("成绩表").Cells(i, 1).Resize(1, 12))
End If
Next i
For i = 0 To d.Count - 1
Set sh = Worksheets.Add
sh.Move after:=Worksheets(Worksheets.Count)
sh.Name = d.keys()(i)
d.items()(i).Copy sh.Range("a1")
Next i
End Sub

复制代码

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

[求助] 把“成绩表”分成若干的分表

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-2 22:33 来自手机 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报