Excel简明宏教程-完美打印版.doc

Excel简明宏教程之一Stone Hou 2012年11月10日星期六摘要：Excel 宏简明教程，编辑美化By 写在前面Microsoft excel是一款功能非常强大的电子表格软件。它可以轻松地完成数据的各类数学运算，并用各种二维或三维图形形象地表示出来，从而大大简化了数据的处理工作。但若仅利用excel的常用功能来处理较复杂的数据，可能仍需进行大量的人工操作。但excel的强大远远超过人们的想象-宏的引入使其具有了无限的扩展性，因而可以很好地解决复杂数据的处理问题。随着支持Windows的应用程序的不断增多和功能的不断增强，越来越多的程序增加了宏处理来方便用户的自由扩展。但初期各应用程序所采用的宏语言并不 统一，这样用户每使用一种应用程序时都得重新学习一种宏语言。为了统一各种应用程序下的宏，Microsoft推出了VBA（Visual Basic for Applications）语言。VBA是从流行的Visual Basic编程语言中派生出来的一种面向应用程序的语言，它适用于各种Windows应用程序，可以解决各应用程序的宏语言不统一的问题。除此之外，使用 VBA语言还有如下优点：1、VBA是一种通用程序语言，通过它不仅可以共享Microsoft相关的各种软件（如excel、word、access），而且随着其它的一些软件（如大名鼎鼎的AutoCAD2000）等对VBA的支持，这些软件也已进入到了VBA的控制范围；2、可以将用VBA编写的程序复制到Visual Basic中调试并运行，从而实现用Visual Basic来控制有关的应用程序；3、VBA提供的大量内部函数大大简化了用户的操作。对于而今的宏，不仅语言统一规范，而且其功能也已非常强大。但在大多数介绍excel的傻瓜书、指南、入门与提高等参考书中往往略过不提，或浅浅带过，读者从中获得的有关知识往往不足以应付处理复杂数据的需求。为了完成工作，就让我们一起来学习宏的妙用吧。一、宏的自学首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用录制宏的方法来学习宏：点击excel 工具下拉菜单中宏下-“录制新宏，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击工具下拉菜单中宏下宏的编 辑选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的帮助下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。二、基本概念为了学习excel中的宏，我们需要先了解以下一些基本概念。1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbookWorkbooks集合包含excel中所有当前打开的excel工作簿，亦即所有打开的excel文件；Workbook对应Workbooks中的成员，即其中的excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的excel文件；ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks(1)、Workbooks(年度报表.xls)。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2。2、工作表：Worksheets、Worksheet、ActiveSheetWorksheets集合包含工作簿中所有的工作表，即一个excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets(1)、Worksheets(第一季度数据)。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边 的）为Worksheets.Count。需要注意的是：在使用过程中excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。3、图表：Chart 、Charts、ChartObject、ChartObjects、ActiveChartChart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index) 可引用单个Chart图表，其中index是该图表工作表的索引号或名称；如Charts(1)、Charts(销售图表)。图表工作表的索引号表示 图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个（最左边的）图表工作表；Charts(Charts.Count)为最 后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的外观和尺寸。ChartObjects代表指定的图表工作表、对话框编辑表或工作表上所有嵌入式图表的集合。可由ChartObjects(index)引用单个 ChartObject，其中index为嵌入式图表的编号或名称。如Worksheets(Sheet1).ChartObjects(1)、Worksheets(sheet1).ChartObjects(chart1)分别对应Sheet1工作表中的第一个嵌入式图表、以及名 为Chart1的嵌入式图表。ActiveChart可以引用活动状态下的图表，不论该图表是图表工作表，或嵌入式图表。而对于图表工作表为活动工作表时，还可以通过ActiveSheet属性引用之。4、单元格：Cells、ActiveCell、Range、AreasCells(row, column)代表单个单元格，其中row为行号，column为列号。如可以用Cells(1,1)、Cells(10,4)来引用A1、D10 单元格。ActiveCell代表活动工作表的活动单元格，或指定工作表的活动单元格。Range代表工作表中的某一单元格、某一行、某一列、某一选定区域（该选定区域可包含一个或若干连续单元格区域）或者某一三维区域。可用Range(arg)来引用单元格或单元格区域，其中arg可为单元格号、单元格号范围、单元格区域名称。如Range(A5)、Range(A1:H8)、Range(Criteria)。虽然可用Range(A1)返回单元格A1，但用Cells更方便，因为此时可 用变量指定行和列。dvnews_page可将Range与Cells结合起来使用，如 Range(Cells(1,1),Cells(10,10)代表单元格区域A1:J10；而 expression.Cells(row,column)返回单元格区域中的一部分，其中expression是返回Range的表达式，row和 column为相对于该区域的左上角偏移量。如由Range(C5:C10).Cells(1,1)引用单元格C5。Areas 为选定区域内的连续单元格块的集合，其成员是Range对象。而其中的每个Range对象代表选定区域内与其它部分相分离的一个连续单元格块。某些操作不 能在选定区域内的多个单元格块上同时执行；必须在选定区域内的单元格块数Areas.Count上循环，对每个单独的单元格块分别执行该操作。此时，可用 Areas(index)从集合中返回单个Range对象，其中index为单元格块编号；如Areas(1)。5、行与列：Rows、Columns、Row、ColumnRows、Columns分别代表活动工作表、单元格区域范围Range、指定工作表中的所有行数、列数。对于一个多选单元格区域范围Range的 Rows、Columns，只返回该范围中第一个区域的行数、列数。例如，如果Range对象有两个区域（areas）A1:B2和 C3:D4，Rows.Count返回2而不是4。可通过Rows(行号)、Columns(列号)来引用相应的行与列；如Rows(3)、Columns(4)分别对应第三行、D列。利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均以十进制数表示。三、处理单元格1、直接赋值与引用将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量，这是在excel中最简单的单元格赋值及引用方法。如下例将工作表Sheet1A1单元格的值赋给Integer变量I，并将I+1的值赋给当前工作表中的B1单元格：Dim I As IntegerI=Worksheets (Sheet1).Cells (1, 1) Cells(1,2).Select 选定B1单元格，使其成为当前单元格ActiveCell=I+1 以I+1为当前单元格赋值2、用公式赋值在宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）：ActiveCell.Formula=AVERAGE(R-6C-4:R-2C-4)3、引用其它工作表中的单元格当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上工作表名！即可。如以下即在赋值中引用了Sheet1工作表中的A1至A4单元格：Range(E10).Formula=SUM(Sheet1!R1C1:R4C1)但需注意的是：当被引用的工作表名中含有某些可能引起公式歧义的字符时，需要用单引号将工作表名括起来。如：Worksheets(Sheet1).ActiveCell.Formula=Max(1-1剖面!D3:D5)4、引用其它工作簿中的单元格在被引用单元格所在工作表名前加上工作簿名，即可引用其它工作簿中的单元格。如：ActiveCell.Formula=MAX(Book1.xlsSheet3!R1C:RC4)同样需注意的是：当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号、及单引号将工作簿名括起来。如：Cells(1,2).Formula=MIN(1995-2000总结.xls1995-1996年! $A$1:$A$6)5、避免循环引用在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，防止循环引用错误。6、添加批注可按如下方法格给单元格添加批注：Dim 批注文本 As String批注文本=批注示例 准备批注文本ActiveCell.AddComment 添加批注ActiveCell.Comment.Text Text:=临时 写入批注文本ActiveCell.Comment.Visible=False 隐藏批注dvnews_page7、添加、删除、复制、剪切、粘贴单元格Range(D10).Insert Shift:=xlToRight 在D10单元格处添加一新单元格，原D10格右移 Range(C2).Insert Shift:=xlDown 在C2单元格处添加一新单元格，原C2格下移Rows(2).EntireRow.Insert 在第2行前添加一空白行，原第2行下移Columns(3).EntireColumn.Insert 在C列前添加一空白列，原C列右移Columns(A:D).Delete Shift:=xlToLeft 删除A列至D列，其右侧列左移Rows(3:5).Delete Shift:=xlUp 删除第3行至第5行，其下方行上移Range(B2).EntireRow.Delete 删除第2行Range(C4).EntireColumn.Delete 删除C列Range(B10:C13).Copy 复制B10至C13单元格区域Cells(1,2).Cut 剪切B1单元格Range(D10).SelectActiveSheet.Paste 自D10单元格起粘贴剪贴板中的内容四、图表1、工作表图表以下为一添加工作表图表的实例。Charts.Add after:=Worksheets(Sheet1) 在Sheet1工作表之后添加新图表工作表ActiveChart.ChartType=xlXYScatterSmooth 图表类型为XY平滑线散点图ActiveChart.SetSourceData Source:=Sheets(结点坐标).Range(A1:B69), PlotBy:= _xlColumns 图表数据来源于结点坐标工作表的A1至B69单元格，且按列绘图。ActiveChart.Location Where:=xlLocationAsNewSheetWith ActiveChart.HasTitle = True.ChartTitle.Characters.Text = 节点坐标 图表标题节点坐标.Axes(xlCategory, xlPrimary).HasTitle = True.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = x x轴标题x.Axes(xlValue, xlPrimary).HasTitle = True.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = y y轴标题yEnd WithWith ActiveChart.Axes(xlCategory).HasMajorGridlines = True 显示x轴主网格线，默认情况下为显示.HasMinorGridlines = True 显示x轴次网格线，默认情况下为不显示End WithWith ActiveChart.Axes(xlValue).HasMajorGridlines = True 标出x轴主网格值，默认情况下为标注.HasMinorGridlines = False 取消x轴次网格值标注，默认情况下为不标注End WithActiveChart.Legend.Position = xlRight 图例显示在图表右侧2、嵌入式图表嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同，而对图表的设置基本类似。详见下例。Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300) 在当前工作表(0,0)坐标处添加宽200，高300的嵌入式图表嵌入表.Chart.ChartType = xlColumnClustered 图表类型为簇状柱形图嵌入表.Chart.SetSourceData Source:=Sheets(1).Range(A2:B2), PlotBy:=xlRows 设置图表数据来源With 嵌入表.Chart.HasTitle = False 无图表标题.Axes(xlCategory, xlPrimary).HasTitle = False 无x轴标题.Axes(xlValue, xlPrimary).HasTitle = False 无y轴标题End Withdvnews_page五、工作表1、添加Sheets.Add before:=Sheets(1) 在第1工作表前添加新工作表Sheets.Add after:=Sheets(Sheets.Count) 在最后工作表后添加新工作表2、移动ActiveSheet.Move before:=Sheets(2) 将当前工作表移动至第2工作表之前3、命名ActiveSheet.Name=工作表名 将当前工作表命名为工作表名4、删除可以用以下语句删除当前工作表。ActiveSheet.Delete但在删除前excel会自动弹出提示框，需在用户确认后方可执行删除。为避免这一干扰，可以先用以下语句关闭excel的警告提示。Application.DisplayAlerts = False在删除完成后，再重新打开excel的警告提示Application.DisplayAlerts = True六、工作簿excel的宏对工作簿的操作主要为保存。Dim 存盘文件名 As StringActiveWorkbook.Save 保存当前工作簿存盘文件名=工作表名ActiveWorkbook.SaveAs Filename:= 存盘文件名 当前工作簿另存为工作表名.xls在另存时，若指定的存盘文件名不包含路径，则保存在该工作簿的打开目录下。而若此存盘文件已存在，也可用关闭excel警告提示的方法以免其自动弹出提示框。第 27 页 / 共 27 页 1/27/2020 7:36:40 下午Excel简明宏教程之二Stone Hou 2012年11月10日星期六摘要：Excel 宏简明教程，编辑美化By 一、选中单个单元格Range(“).Select例：Range(C9).Select 选中“C9”单元格二、选中多个单元格Range(“:,”).Select例：Range(“A1:B2”).Select 选中“A1”、“A2”、“B1”、“B2”四个连续的单元格Range(“12:12”).Select 选中第12行Range(“B:B”).Select 选中第B列Range(“A1:A2,B7,2:2”).Select 选中“A1”、“A2”、“B7”五个不连续的单元格和第二行Cells.Select 选中当前SHEET中的所有单元格Rows(:).Select 选中整行Columns(:).Select 选中整列例：Rows(“2:2”). Select 选中第2行Rows(“2:5”). Select 选中2到5行Columns(A:A).Select 选中A列Columns(E:B).Select 选中E到B列三、设置活动单元格Range().Activate注：设置活动单元格 与 选中单元格类似，不同之处就是后者在选中指定的单元格之前会将在此前已被选中的单元格取消掉。前者在设置之前不会取消已选中的单元格，如果此时操作的单元格不是被选中的单元格，这时他实现的功能与选一个单元格相同。四、给活动的单元格赋值ActiveCell.FormulaR1C1 = 例：Range(A1).SelectActiveCell.FormulaR1C1 = NameRange(B1).SelectActiveCell.FormulaR1C1 = AgeRange(A2:B3).SelectRange(A2).ActivateActiveCell.FormulaR1C1 = BUGRange(B2).ActivateActiveCell.FormulaR1C1 = 12Range(A3).ActivateActiveCell.FormulaR1C1 = ArcherRange(B3).ActivateActiveCell.FormulaR1C1 = 37五、得到指定单元格中的值Range().Text六、插入单元格Selection.Insert Shift:=Selection.EntireRow.InsertSelection.EntireColumn.Insert例：Selection.Insert Shift:=xlToRight 在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动Selection.Insert Shift:=xlDown 在当前选中单元格的位置插入单元格并将当前选中的单元格向下移动Selection.EntireRow.Insert 在当前选中单元格的上面插入一行Selection.EntireColumn.Insert 在当前选中单元格的左侧插入一列七、设置字体属性1. 设置字体名称和大小Selection.Font.Name = Selection.Font.Size = 例：Selection.Font.Name = 隶书Selection.Font.Size = 152. 设置字体样式Selection.Font.Bold = 加粗Selection.Font.Italic = 斜体Selection.Font.Underline = 下划线XlUnderlineStyle(下划线样式):xlUnderlineStyleDouble 双下划线xlUnderlineStyleDoubleAccounting 会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnderlineStyleNone 没有下划线xlUnderlineStyleSingle 单下划线xlUnderlineStyleSingleAccounting 会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3. 设置字体的颜色Selection.Font.ColorIndex = Selection.Font.Color = 4. 设置字体的特殊效果Selection.Font.Strikethrough = 删除线Selection.Font.Superscript = 上标Selection.Font.Subscript = 下标八、清空选中单元格里的内容Selection.ClearContents例：Range(“A1:A2,B7,2:2”).Select 选中“A1”、“A2”、“B7”五个不连续的单元格和第二行Selection.ClearContents 清空“A1”、“A2”、“B7”五个不连续单元格中的所有内容九、设置选中单元格的边线属性XlBordersIndex(边线):xlEdgeLeft 单元格左边线xlEdgeTop 单元格上边线xlEdgeRight 单元格右边线xlEdgeBottom 单元格下边线xlDiagonalDown 单元格左上右下斜线xlDiagonalUp 单元格左上右下斜线xlInsideVertical 多个单元格内垂直线xlInsideHorizontal 多个单元格内水平线1. 设置边线的类型Selection.Borders().LineStyle = XlLineStyle(边线类型):xlLineStyleNone 无样式xlContinuous 单线xlDash 破折号线(间隔线)xlDashDot 破折号 点线xlDashDotDot 破折号 点 点线xlDot 点线xlDouble 双横线xlSlantDashDot 斜点线2. 设置边线的宽度Selection.Borders().Weight = XlBorderWeight(宽度值):xlHairline 极细xlThin 细xlMedium 中等xlThick 粗3. 设置边线的颜色Selection.Borders(xlEdgeLeft).ColorIndex = Selection.Borders(xlEdgeLeft).Color = 十、删除选中的单元格Selection.Delete Selection.EntireRow.DeleteSelection.EntireColumn.Delete例：Selection.Delete Shift:=xlToLeft 删除选中的单元格,并将已删除单元格所在位置右面的单元格向左移动Selection.Delete Shift:=xlUp 删除选中的单元格,并将已删除单元格所在位置下面的单元格向上移动Selection.EntireRow.Delete 删除选中单元格所在的行Selection.EntireColumn.Delete 删除选中单元格所在的列十一、设置单元格背景色及图案1. 背景色Selection.Interior.ColorIndex = Selection.Interior.Color = 2. 图案样式Selection.Interior.Pattern = Constants(图案样式):xlSolid 实心 xlGray75 75% 灰色 xlGray50 50% 灰色 xlGray25 25% 灰色 xlGray16 12.5% 灰色 xlGray8 6.25% 灰色 xlHorizontal 水平 条纹 xlVertical 垂直 条纹 xlDown 逆对角线 条纹 xlUp 对角线 条纹 xlChecker 对角线 剖面线 xlSemiGray75 粗 对角线 剖面线 xlLightHorizontal 细 水平 条纹 xlLightVertical 细 垂直 条纹 xlLightDown 细 逆对角线 条纹 xlLightUp 细 对角线 条纹 xlGrid 细 水平 剖面线 xlCrissCross 细 对角线 剖面线 3. 图案颜色Selection.Interior.PatternColorIndex = Selection.Interior.PatternColor = 十二、返回工作表中的行数Sheet1.UsedRange.Rows.Count 返回从最小已输入内容的行号到最大已输入内容的行号之间的行数Sheet1.UsedRange.Rows(Sheet1.UsedRange.Rows.Count).Row 最大已输入内容的行号十三、得到当前EXCEL的文件名ThisWorkbook.Path 文件路径ThisWorkbook.Name 文件名ThisWorkbook.FullName 全路径十四、批注的操作1. 添加批注AddComment(Content)例：Range(A1).AddComment (Writes the content in here!)2. 修改批注内容Comment.Text例：Range(B1).Comment.Text Text:= Writes the content in here!3. 显示/隐藏批注Comment.Visible = 4. 删除批注ClearComments例：Selection.Range(B1).ClearComments5. 选中批注Comment.Shape.Select True例：Range(D8).Comment.Shape.Select True6. 改变批注大小和位置Selection.ShapeRange.ScaleWidth , msoFalse, Selection.ShapeRange.ScaleHeight , msoFalse, 例：Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft 每次增加5%的宽度Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft 每次减少6%的宽度Selection.ShapeRange.Left = Selection.ShapeRange.Top = Selection.ShapeRange.Width = Selection.ShapeRange.Height = 十五、剪切、复制、粘贴Selection.Cut 剪切Selection.Copy 复制ActiveSheet.Paste 粘贴例：Range(A1).SelectSelection.CutRange(A2).SelectActiveSheet.PasteSelection.CopyRange(A3).SelectActiveSheet.Paste十六、选择性粘贴Selection.PasteSpecial 十七、改变列宽Selection.ColumnWidth = 指定列宽例：Columns(A:A).SelectSelection.ColumnWidth = 30 改变已选列的宽度EntireColumn.AutoFit 自动改变列宽例：Columns(C:C).EntireColumn.AutoFit 根据C列的内容自动改变列的宽度十八、案例分析在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(高三理).Select 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(高三理).Select Sheets(高三理).Copy After:=Sheets(高三理) Sheets(高三理 (2).Select Sheets(高三理 (2).Name = 33 For i = 2 To studentno For j = 1 To zdno ActiveSheet.Cells(i, j) = Space$(1) Next j Next i Range(a1).Select 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).Select Sheets(x$ & (2).Name = 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 kEnd Sub总分 Sub 总分()Const studentno = 191 Const xknum = 6 Const zdnum = 12 Sheets(高三理).Select 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 iEnd Sub平均分 Sub 平均分() Const studentno = 190 Const xknum = 6 Dim fs(studentno, xknum), pjf3(4, 6), bjrs(4), qxpjf(6) Dim bj(studentno) Sheets(高三理).Select 注释：以下程序段用于求全校平均分 For i = 1 To studentno bj(i) = ActiveSheet.Cells(i