成绩统计分析Word下载.docx
- 文档编号:21723012
- 上传时间:2023-01-31
- 格式:DOCX
- 页数:13
- 大小:673.09KB
成绩统计分析Word下载.docx
《成绩统计分析Word下载.docx》由会员分享,可在线阅读,更多相关《成绩统计分析Word下载.docx(13页珍藏版)》请在冰豆网上搜索。
=-15
Cells.Select
Selection.Clear
Range("
A1"
).Select
Next
Fori=1To2000'
2000学生
Sheets("
登统表"
).Select'
从总表开始查找分类
a"
&
1)=i'
指示查找到行数
IfRange("
i)=jThen
i)="
=登统表!
"
"
i
b"
c"
d"
e"
f"
g"
h"
i"
j"
k"
l"
m"
n"
o"
p"
q"
Else
EndIf
Nextj
Nexti
Sheets(n).Select'
排序
Selection.SortKey1:
=Range("
),Order1:
=xlAscending,Header:
=xlGuess,_
OrderCustom:
=1,MatchCase:
=False,Orientation:
=xlTopToBottom,SortMethod_
:
=xlPinYin,DataOption1:
=xlSortNormal
=-9
统计分析各班成绩,放于各班表头
Forj=143To169
Rows("
1:
1"
Selection.InsertShift:
=xlDown
ActiveCell.FormulaR1C1="
RC"
Selection.AutoFillDestination:
A1:
Q1"
),Type:
=xlFillDefault
E2"
科平均"
E3"
优生数"
E4"
参考人数"
C1:
D1"
Selection.ClearContents
E1"
B1"
).Activate
O1"
班平"
科优生数"
F4"
=COUNT(R[2]C:
R[2641]C)"
ActiveWindow.ScrollRow=1
F4:
N4"
F2"
=SUM(R[4]C:
R[2532]C)"
R[2532]C)/R[2]C"
F3"
=-1
F2:
N2"
O2"
=SUM(RC[-9]:
RC[-1])/9"
=COUNTIF(R[3]C:
R[2210]C,"
>
800"
)"
ActiveWindow.ScrollRow=2
96"
=96"
F3:
H3"
H3:
I3"
=80"
I3:
N3"
M3"
=24"
M3:
N3:
O3"
=656"
=R[8]C[-4]"
=R[8]C[-4]&
班"
F5"
加上班号便于排序
D2"
=R[-1]C[1]"
D2:
D4"
=xlFillCopy
D3"
=R[-2]C[1]"
=R[-3]C[1]"
D5"
统计分析
统计分析表"
Fork=1To5
i=k+(j-143)*5
='
143'
!
="
j&
k
Nextk
EndSub
Sub初三数据整理()
整理
Columns("
B:
C"
Selection.DeleteShift:
=xlToLeft
C2"
=xlDescending,Header:
=xlYes,_
=-6
12:
28"
=xlUp
22:
38"
32:
273"
=-33
A:
A"
L22:
L31"
M:
N"
Selection.Borders(xlDiagonalDown).LineStyle=xlNone
Selection.Borders(xlDiagonalUp).LineStyle=xlNone
WithSelection.Borders(xlEdgeLeft)
.LineStyle=xlContinuous
.Weight=xlThin
.ColorIndex=xlAutomatic
EndWith
WithSelection.Borders(xlEdgeTop)
WithSelection.Borders(xlEdgeBottom)
WithSelection.Borders(xlEdgeRight)
WithSelection.Borders(xlInsideVertical)
WithSelection.Borders(xlInsideHorizontal)
A2"
C13:
L22"
Selection.NumberFormatLocal="
0.00_"
C2:
L32"
WithSelection
.HorizontalAlignment=xlCenter
.VerticalAlignment=xlCenter
.WrapText=False
.Orientation=0
.AddIndent=False
.IndentLevel=0
.ShrinkToFit=False
.ReadingOrder=xlContext
.MergeCells=False
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 成绩 统计分析