[已解决]分类统计

随意的风 · 发表于 2016-2-3 12:02

求解分类统计

最佳答案

sry660

2016-2-3 12:38

Sub 成绩统计()
Dim arr, i&, j&, d, s, rmax, x
Set d = CreateObject("scripting.dictionary")
With Sheets(1)
s = .[k1].Value
rmax = .Cells(Rows.Count, 1).End(xlUp).Row
arr = .Range("a4:k" & rmax)
For i = 1 To UBound(arr)
x = arr(i, 1)
If x = s Then
If Not d.exists(x) Then
Set d(x) = .Cells(i + 3, 1).Resize(1, 11)
Else
Set d(x) = Union(d(x), .Cells(i + 3, 1).Resize(1, 11))
End If
End If
Next
With Sheets(2)
.[a4:k10000].ClearContents
If d.exists(s) Then d(s).Copy .[a4]
rmax = .Cells(Rows.Count, 1).End(3).Row
.Range("a4:k" & rmax).Sort key1:=.[c4], order1:=xlDescending, key2:=.[b4], order2:=xlAscending, Header:=xlNo
End With
End With
End Sub

复制代码

sry660 · 发表于 2016-2-3 12:38

Sub 成绩统计()
Dim arr, i&, j&, d, s, rmax, x
Set d = CreateObject("scripting.dictionary")
With Sheets(1)
s = .[k1].Value
rmax = .Cells(Rows.Count, 1).End(xlUp).Row
arr = .Range("a4:k" & rmax)
For i = 1 To UBound(arr)
x = arr(i, 1)
If x = s Then
If Not d.exists(x) Then
Set d(x) = .Cells(i + 3, 1).Resize(1, 11)
Else
Set d(x) = Union(d(x), .Cells(i + 3, 1).Resize(1, 11))
End If
End If
Next
With Sheets(2)
.[a4:k10000].ClearContents
If d.exists(s) Then d(s).Copy .[a4]
rmax = .Cells(Rows.Count, 1).End(3).Row
.Range("a4:k" & rmax).Sort key1:=.[c4], order1:=xlDescending, key2:=.[b4], order2:=xlAscending, Header:=xlNo
End With
End With
End Sub

复制代码

zyouong · 发表于 2016-2-3 14:52

六年级成绩汇总.rar (19.02 KB, 下载次数: 5)

随意的风 · 发表于 2016-2-3 14:54

本帖最后由随意的风于 2016-2-3 15:34 编辑

sry660 发表于 2016-2-3 12:38

非常感谢！高水平的我没有看明白，以后好好学习

随意的风 · 发表于 2016-2-3 15:15

本帖最后由随意的风于 2016-2-3 15:43 编辑

非常感谢！明白了谢谢

wqjyyylkz · 发表于 2016-2-4 15:40

可将源数据按班级升序，科目升序排序，再用高级筛选即可，如附件

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