在Excel 97中，\宏\是一个难以理解的概念，但对于一个具体的\宏\而言，却是容易理解的，如果说\将一块文字变为注释：黑体注释：，字号为注释：三号注释：\就可以看作一个\宏\的话，那么\宏\就不难理解了，其实Excel 97中的许多操作都可以是一个\宏\。
\记录宏\其实就是将工作的一系列操作结果录制下来，并命名存储（相当于VB中一个子程序）。在Excel 97中，\记录宏\仅记录操作结果，而不记录操作过程。例如，改变文字字体时，需要打开\字体\栏中的下拉列表，再选择一种字体，这时文字即变为所选择的字体，这是一个过程，结果是将所选择的文字改变为所选择的字体。而\记录宏\则只记录\将所选择的文字改变为所选择的字体\这一结果。
Excel 97中工作表是由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格中的数据取出（也可将它数据填入到指定的单元格中），然后反把它放入所定义的数组中，这时就可以对其进行各种操作，如求平均分、总分、分数段人数等等。
本人就利用Excel 97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件，其中包含以下几个宏：分班、总分、平均分、分数段、删除等。 说明：⑴本程序是以本校高三理科班学生成绩进行分析。 ⑵有关程序中用到的几具宏的功能说明：
分班：针对于难以确定班级的情况下，以班为单位进行分班，本宏可以作为高一新生入学时进行分班的功能。
总分：对原始的成绩自动求总分。
平均分：对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。
分数段：给定一个最高分数及最低分数，然后统计出各班各个分数段的人数，各分数段人数进行累计。
删除：用于删除不用的工作表。 现将各个宏的代码列举如下： ⑴分班 Sub 分班()
Const studentno = 191 '注释：学生人数 Const zdno = 12 '注释：字段数
Dim zd$(zdno) ' 注释：定义为12个字段的数组
Dim a(studentno, zdno), stu(60, zdno)
Dim nam$(studentno), bjname$(60) '注释：定义一个存放全校学生名字及各班学生名字的数组
Dim bj(studentno) '注释：定义存放班级的一个数组 注释: 理科班工作表 Sheets(\高三理\
For i = 2 To studentno
bj(i) = ActiveSheet.Cells(i, 1) nam$(i) = ActiveSheet.Cells(i, 2) For j = 3 To zdno
a(i, j) = ActiveSheet.Cells(i, j) Next j Next i
'注释: 存放字段到数组中? For i = 1 To zdno
zd$(i) = ActiveSheet.Cells(1, i) Next i
'注释: 先建立各个班级的工作表
Sheets(\高三理\
Sheets(\高三理\After:=Sheets(\高三理\ Sheets(\高三理 (2)\
Sheets(\高三理 (2)\= \ For i = 2 To studentno For j = 1 To zdno
ActiveSheet.Cells(i, j) = Space$(1) Next j Next i
Range(\ For i = 1 To zdno
ActiveSheet.Cells(1, i) = zd$(i) Next i
'注释：34到36班工作表的建立 For i = 34 To 36
x$ = Mid$(Str(33), 2)
Sheets(x$).Select
Sheets(x$).Copy After:=Sheets(\高三理\ Sheets(x$ & \(2)\
Sheets(x$ & \(2)\= Mid$(Str(i), 2) Next i
'注释: 具体分班? For k = 33 To 36 bjrs = 0
x$ = Mid$(Str(k), 2) no = k Mod 10 Sheets(x$).Select For i = 2 To studentno If bj(i) = no Then bjrs = bjrs + 1
bjname$(bjrs) = nam$(i) For j = 3 To zdno stu(bjrs, j) = a(i, j) Next j End If Next i
For i = 2 To bjrs
ActiveSheet.Cells(i, 1) = no
ActiveSheet.Cells(i, 2) = bjname$(i) For j = 3 To zdno
ActiveSheet.Cells(i, j) = stu(i, j) Next j Next i Next k End Sub ⑵总分 Sub 总分()
Const studentno = 191 Const xknum = 6 Const zdnum = 12 Sheets(\高三理\ For i = 2 To studentno Sum = 0
For j = 1 To xknum
Sum = Sum + ActiveSheet.Cells(i, j + 2) Next j
ActiveSheet.Cells(i, zdnum - 3) = Sum Next i End Sub
⑶平均分 Sub 平均分()
Const studentno = 190
Const xknum = 6
Dim fs(studentno, xknum), pjf3(4, 6), bjrs(4), qxpjf(6) Dim bj(studentno)
Sheets(\高三理\
注释：以下程序段用于求全校平均分 For i = 1 To studentno
bj(i) = ActiveSheet.Cells(i 1, 1)
For j = 1 To xknum
fs(i, j) = ActiveSheet.Cells(i 1, j 3) Next j Next i
For i = 1 To xknum
Sum = 0
For j = 1 To studentno Sum = Sum fs(j, i) Next j
qxpjf(i) = Sum / (j - 1) Next i
注释：以下程序段用于求各班平均分 For j = 1 To 4
For i = 1 To studentno If bj(i) = j 2 Then bjrs(j) = bjrs(j) 1
For k = 1 To xknum
pjf3(j, k) = pjf3(j, k) fs(i, k) Next k End If Next i
Next j
For j = 1 To 4 For i = 1 To 6
pjf3(j, i) = pjf3(j, i) / bjrs(j) Next i Next j
注释：写入各班各科平均分 Sheets(\平均分\
For i = 1 To 4
For j = 1 To 6
ActiveSheet.Cells(i 2, j 1) = pjf3(i, j) Next j Next i
注释：写入全校各科平均分 i = 7
For j = 1 To 6
ActiveSheet.Cells(i, j 1) = qxpjf(j) Next j End Sub ⑷分数段 Sub 分数段() Const max = 600
Const min = 390
Const studentno = 190 Const bjnum = 4 Const fsdnum = 22
Dim bjfsd(bjnum, fsdnum), zf(studentno, 2) Sheets(\高三理\
For i = 1 To studentno
zf(i, 1) = ActiveSheet.Cells(i 1, 1) 注释：存放班级 zf(i, 2) = ActiveSheet.Cells(i 1, 11) 注释：存放总分 Next i
For i = 1 To studentno
For j = 1 To 4 注释：3---6班共4个班级 If zf(i, 1) = j 2 Then
For k = max To min Step -10 low = Int((max 10 - k) / 10)
If zf(i, 2) > k Then bjfsd(j, low) = bjfsd(j, low) 1 Next k End If Next j Next i
Sheets(\ For i = 3 To 6
For k = 1 To fsdnum
ActiveSheet.Cells(i, k 1) = bjfsd(i - 2, k) Next k Next i
Range(\
Selection.Cut
ActiveWindow.LargeScroll ToRight:=-1 Range(\ ActiveSheet.Paste End Sub ⑸ 删除 Sub 删除()
Sheets(\
ActiveWindow.SelectedSheets.Delete Sheets(\
ActiveWindow.SelectedSheets.Delete Sheets(\
ActiveWindow.SelectedSheets.Delete Sheets(\
ActiveWindow.SelectedSheets.Delete End Sub
excel宏教程
