[已解决]从学生信息中提取学生科目结构信息，并用树的方式表达。

ac5474012 · 发表于 2012-3-8 10:16

本帖最后由 ac5474012 于 2012-3-8 11:32 编辑

答：答案在1楼
另外配合答案和怕我自己会忘记，我总结了一个文字的操作流程。与大家分享。
1.点击 “数据” 的 “数据透视表和数据透视图”
2.在出现的窗口中（默认）选择下一步
3.选择需要透视的区下一步
4.默认新建工作表完成
5.转到新创建的工作表，按照所需要的级别以此双击数据透视表字段列表中的字段。
6.如果不希望看到“汇总”字段，可以点击要编辑的行中的一列，鼠标右键选择“字段设置”在分类汇总中选择“无”确定即可。
问：
大家看看图就知道了
原表是这样的，我想把它更改为下面的结构。

原表

变成这个

或者把学院都写在A列都可以。
求助高人怎么更改？

这是表下载

学生类型.rar (81.55 KB, 下载次数: 11)

那么的帅 · 发表于 2012-3-8 10:25

可以利用透视表完成

学生类型-1.rar (108.33 KB, 下载次数: 6)

?﹎尐蜻蜓.o0 · 发表于 2012-3-8 10:43

{:15:}有点小不懂你的数据
简单的用透视表做了一下
不怎么符合你表中的要求
如果有问题你可以跟我说一下
我好及时改正{:011:}

学生类型.rar (192.19 KB, 下载次数: 2)

liuguansky · 发表于 2012-3-8 11:54

本帖最后由 liuguansky 于 2012-3-8 11:55 编辑

效果详见附件：
单击Sheet1的按钮[每个学院分表显示]

Sub justtest()
Dim D As New Dictionary, Arr, i&, BTAr, Sh As Worksheet, K&, M&, N&
Dim Ar(1 To 4), k1&, k2&, k3&, k4&, ArRe(1 To 60000, 1 To 3) As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Arr = Range("A1").CurrentRegion.Value
For i = 2 To UBound(Arr)
If D.Exists(Arr(i, 1)) Then
If D(Arr(i, 1)).Exists(Arr(i, 2)) Then
If D(Arr(i, 1))(Arr(i, 2)).Exists(Arr(i, 3)) Then
If Not D(Arr(i, 1))(Arr(i, 2))(Arr(i, 3)).Exists(Arr(i, 4)) Then
D(Arr(i, 1))(Arr(i, 2))(Arr(i, 3)).Add Arr(i, 4), ""
End If
Else
D(Arr(i, 1))(Arr(i, 2)).Add Arr(i, 3), ""
Set D(Arr(i, 1))(Arr(i, 2))(Arr(i, 3)) = New Dictionary
End If
Else
D(Arr(i, 1)).Add Arr(i, 2), ""
Set D(Arr(i, 1))(Arr(i, 2)) = New Dictionary
End If
Else
D.Add Arr(i, 1), ""
Set D(Arr(i, 1)) = New Dictionary
End If
Next i
For Each Sh In Worksheets
If Sh.Name <> "Sheet1" Then
Sh.Delete
End If
Next Sh
BTAr = Array("学院", "系别", "班级")
Ar(1) = D.Keys
For k1 = 0 To UBound(Ar(1))
K = 0
With Worksheets.Add(after:=Worksheets(Worksheets.Count))
.Name = Ar(1)(k1)
.[a1] = Ar(1)(k1)
.[a2:c2] = BTAr
Ar(2) = D(Ar(1)(k1)).Keys
For k2 = 0 To UBound(Ar(2))
M = K
K = K + 1: ArRe(K, 1) = Ar(2)(k2)
Ar(3) = D(Ar(1)(k1))(Ar(2)(k2)).Keys
For k3 = 0 To UBound(Ar(3))
N = M
M = M + 1: ArRe(M, 2) = Ar(3)(k3)
Ar(4) = D(Ar(1)(k1))(Ar(2)(k2))(Ar(3)(k3)).Keys
For k4 = 0 To UBound(Ar(4))
N = N + 1: ArRe(N, 3) = Ar(4)(k4)
Next
Next
K = N
Next
.[a3].Resize(N, 3) = ArRe
.[a:c].EntireColumn.AutoFit
End With
Next
Sheet1.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "处理完毕。"
End Sub

复制代码

学生类型.rar (106.75 KB, 下载次数: 2)

201228 · 发表于 2012-3-8 19:49

什么时候换版主了？

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

[已解决]从学生信息中提取学生科目结构信息，并用树的方式表达。

相关帖子

评分

评分