Excel VBA实例教程指南
Excel宏和VBA编程使用指南
Excel宏和VBA编程使用指南第一章：Excel宏的基础知识与应用Excel宏是一种自动化程序，可以用来执行重复性操作，提高工作效率。
通过录制和编写宏，我们可以自动化执行一系列任务，例如数据处理、图表生成等。
1.1 宏的录制过程Excel中录制宏非常简单。
请选择“开发工具”选项卡，点击“宏录制器”按钮，然后按照提示开始录制宏。
在录制的过程中，可以执行任何操作，包括输入数据、格式设置、公式计算等操作。
录制结束后，宏将会自动生成，并可以随时运行。
1.2 宏的编辑与修饰录制好的宏可以进行编辑和修饰，以满足更加复杂的需求。
通过打开宏编辑器，我们可以查看和修改宏的代码。
在宏代码中，可以使用各种VBA语句和函数，例如循环结构、条件语句、消息框等。
1.3 宏的应用实例：批量处理数据举个例子，当我们需要对大量的数据进行格式设置时，可以使用宏来批量处理。
首先，录制一个宏，包含需要进行的格式设置操作。
然后将该宏应用于其他的数据范围，实现批量处理的效果。
第二章：VBA编程基础知识与语法VBA（Visual Basic for Applications）是一种基于Visual Basic 语言的编程工具，用于操作Excel和其他Office应用程序。
通过VBA编程，我们可以实现更加复杂的自动化任务，并与其他系统进行数据交互。
2.1 VBA的基本结构与对象模型VBA的基本结构包括过程、模块和对象。
过程是一段可执行的代码，用于完成特定的任务。
模块是一组相关的过程的集合。
对象是VBA程序中的核心单位，用于操作和访问数据。
VBA的对象模型是一种层次结构，包括Application对象、Workbook对象和Worksheet对象等。
通过操作这些对象，我们可以访问并修改Excel中的各种数据和属性。
2.2 VBA的变量和数据类型在VBA编程中，变量用于存储数据，数据类型决定了变量可以存储的数据的种类。
常用的数据类型包括整型、浮点型、字符串型等。
如何在VBA中操作Excel表格
如何在VBA中操作Excel表格VBA是一种编程语言，可以通过编写代码来操作Excel表格。
由于Excel是广泛使用的电子表格软件，掌握在VBA中操作Excel表格的技巧将极大地提升工作效率。
本文将介绍如何使用VBA在Excel中进行数据读取、写入、修改和删除等操作，帮助您更好地利用VBA实现数据处理和管理。
1. 数据读取在VBA中实现Excel表格的读取可以通过使用“Workbooks”对象。
首先，我们需要打开一个Excel文件，然后选择一个特定的工作表，并通过指定行和列的位置来访问和读取数据。
以下代码演示了如何在VBA中读取Excel表格中的数据：```Sub ReadData()Dim wb As WorkbookDim ws As WorksheetDim cell As RangeSet wb = Workbooks.Open("文件路径") '替换为要打开的Excel 文件的路径Set ws = wb.Worksheets("工作表名") '替换为要读取数据的工作表的名称For Each cell In ws.Range("A1:E10") '替换为要读取数据的单元格范围'处理读取到的数据，可以将其输出到控制台或进行其他操作Debug.Print cell.ValueNext cellwb.Close '关闭Excel文件End Sub```代码中，通过设置“wb”和“ws”变量，我们可以分别引用Excel文件和工作表。
然后，通过在循环中遍历指定的单元格范围来读取数据。
最后，关闭Excel文件以释放资源。
2. 数据写入与数据读取类似，使用VBA在Excel表格中写入数据同样需要使用“Workbooks”对象。
我们需要先打开一个Excel文件，并选择要写入数据的工作表。
然后，通过指定行和列的位置来写入数据。
完全手册Excel_VBA典型实例大全
TS:完全手册Excel VBA典型实例大全：通过368个例子掌握目录第1章宏的应用技巧宏是一个VBA程序，通过宏可以完成枯燥的、频繁的重复性工作。
本章的实例分别介绍在Excel 2003、Excel 2007中录制宏、使用Visual Basic代码创建宏的方法，最后还以实例演示运行宏和编辑宏的方法。
1.1 创建宏 1例001 在Excel 2003中录制宏 1例002 打开Excel 2007的录制宏功能 3例003 在Excel 2007中录制宏 4例004 使用Visual Basic创建宏 51.2 管理宏 6例005 运行宏 7例006 编辑宏 8第2章 VBE使用技巧VBE（Visual Basic Editor）是编写VBA代码的工具，在上一章中曾使用VBE编辑宏代码。
本章的实例介绍了设置VBE操作环境、在VBE中管理工程代码、使用VBE的辅助工具提高代码输入效率等方法。
2.1 设置VBE操作环境 10例007 停靠VBE子窗口 10例008 定制VBE环境 122.2 工程管理 13例009 增加模块 13例010 删除模块 15例011 导出模块 16例012 导入模块 172.3 管理代码 18例013 属性/方法列表 18例014 常数列表 19例015 参数信息 20例016 自动完成关键字 21第3章程序控制流程技巧结构化程序设计中使用的基本控制结构有3种：顺序结构、选择结构和循环结构。
本章以实例演示了VBA中这三种控制结构的控制语句，最后还介绍了在VBA中使用数组的方法。
3.1 常用输入/输出语句 23例017 九九乘法表（Print方法的应用） 23例018 输入个人信息（Inputbox函数的应用） 24例019 退出确认（Msgbox函数的应用） 253.2 分支结构 27例020 突出显示不及格学生 27例021 从身份证号码中提取性别 29例022 评定成绩等级 30例023 计算个人所得税 323.3 循环结构 34例024 密码验证 34例025 求最小公倍数和最大公约数 36例026 输出ASCII码表 37例027 计算选中区域数值之和 39例028 换零钱法（多重循环） 403.4 使用数组 42例029 数据排序 42例030 彩票幸运号码 44例031 用数组填充单元格区域 46第4章 Range对象操作技巧用户在使用Excel时，大部分时间都是在操作单元格中的数据，同样地，在Excel中使用VBA编程时，也需要频繁地引用单元格区域。
excelvba编程实例
excelvba编程实例Excel VBA编程实例：创建一个销售数据分析报告在这个Excel VBA编程实例中，我们将一步一步地回答如何创建一个销售数据分析报告。
这个报告将会根据数据表中的销售数据生成销售额、销售量和利润率的统计信息，并在一个新的工作表中进行展示。
第一步：准备数据首先，我们需要准备一个包含销售数据的数据表。
数据表应该包括列标题，如“产品名称”、“销售额”、“销售量”和“成本”。
在每一列下面，我们将填入相应的数据。
第二步：打开VBA编辑器要编写VBA代码，我们需要打开VBA编辑器。
在Excel中，可以通过按下ALT + F11来打开VBA编辑器。
第三步：创建一个新的模块在VBA编辑器中，我们需要创建一个新的模块来编写我们的代码。
在左侧的“项目资源管理器”窗口中，选择工作簿，然后右键单击并选择“插入”->“模块”。
第四步：编写VBA代码在新的模块中，我们可以开始编写VBA代码。
下面是一个简单的示例代码，用于生成销售数据分析报告：vbaSub CreateSalesReport()Dim wsData As WorksheetDim wsReport As WorksheetDim lastRow As LongDim i As Long' 设置相关工作表Set wsData = ThisWorkbook.Worksheets("数据表")Set wsReport =ThisWorkbook.Worksheets.Add(After:=wsData) = "销售报告"' 标题wsReport.Cells(1, 1) = "产品名称"wsReport.Cells(1, 2) = "销售额"wsReport.Cells(1, 3) = "销售量"wsReport.Cells(1, 4) = "利润率"' 数据lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row ' 获取数据表最后一行For i = 2 To lastRow ' 循环遍历数据表中的数据wsReport.Cells(i, 1) = wsData.Cells(i, 1)wsReport.Cells(i, 2) = wsData.Cells(i, 2)wsReport.Cells(i, 3) = wsData.Cells(i, 3)wsReport.Cells(i, 4).Formula = "=" & wsReport.Cells(i, 2) & "/" & wsReport.Cells(i, 3) ' 计算利润率Next i' 格式化wsReport.Columns("B:B").NumberFormat = "0.00" ' 设置销售额为货币格式wsReport.Columns("C:C").NumberFormat = "0" ' 设置销售量为整数格式wsReport.Columns("D:D").NumberFormat = "0.00" ' 设置利润率为百分比格式' 统计信息wsReport.Cells(lastRow + 2, 1) = "总计"wsReport.Cells(lastRow + 2, 2).Formula = "=SUM(B2:B" & lastRow & ")" ' 计算销售额总计wsReport.Cells(lastRow + 2, 3).Formula = "=SUM(C2:C" & lastRow & ")" ' 计算销售量总计wsReport.Cells(lastRow + 2, 4).Formula = "=AVERAGE(D2:D" & lastRow & ")" ' 计算平均利润率' 增加边框wsReport.Range("A1:D" & lastRow + 2).Borders.LineStyle = xlContinuous' 自动调整列宽wsReport.Columns.AutoFitEnd Sub第五步：执行VBA代码现在，我们可以执行我们编写的VBA代码。
ExcelVBA编程实战指南
ExcelVBA编程实战指南第一章：ExcelVBA的基础知识ExcelVBA是一种用于自动化Excel任务的编程语言。
本章将介绍ExcelVBA的基础知识，包括VBA编辑器的使用、宏的录制和执行、变量和数据类型、常用的控制结构等内容。
1.1 VBA编辑器的使用VBA编辑器是编写和管理VBA代码的工具。
本节将介绍如何打开和关闭VBA编辑器，以及如何创建、保存和导入模块。
1.2 宏的录制和执行Excel的宏记录功能可以将用户的操作转换为VBA代码。
本节将介绍如何录制宏并执行宏代码，以实现自动化操作。
1.3 变量和数据类型在VBA中，变量用于存储和操作数据。
本节将介绍VBA的数据类型，如字符串、整数、浮点数等，并介绍如何声明和使用变量。
1.4 控制结构控制结构用于控制程序的执行流程。
本节将介绍常用的控制结构，如条件语句、循环语句等，并介绍如何使用它们编写灵活的程序。
第二章：ExcelVBA的高级应用本章将介绍一些ExcelVBA的高级应用，包括操作Excel对象模型、处理数据、自定义函数、错误处理等内容。
2.1 操作Excel对象模型ExcelVBA提供了丰富的对象模型，可以通过操作对象模型来实现复杂的功能。
本节将介绍常用的对象和属性、方法，以及如何通过对象模型访问Excel表格、图表等内容。
2.2 处理数据数据处理是Excel的核心功能之一，也是VBA编程的重点。
本节将介绍如何使用VBA对Excel中的数据进行排序、过滤、求和等操作。
2.3 自定义函数ExcelVBA允许用户自定义函数，以扩展Excel的功能。
本节将介绍如何编写和使用自定义函数，以及如何将自定义函数应用于Excel表格中。
2.4 错误处理在VBA编程中，错误处理是一种重要的技术。
本节将介绍如何通过错误处理机制来处理程序中可能出现的错误，以增强程序的健壮性。
第三章：ExcelVBA与其他应用的集成ExcelVBA不仅可以与Excel紧密结合，还可以与其他应用程序进行数据交互和集成。
excel vba 教程
excel vba 教程Excel VBA教程:VBA（Visual Basic for Applications）是一种用于自动化Microsoft Office应用程序的编程语言。
在Excel中，通过VBA可以编写宏（Macro），实现自动化的数据处理和操作。
以下是一些常用的VBA代码示例，帮助你快速入门：1. 插入新模块: 在Excel的"开发工具"选项卡中，点击"Visual Basic"按钮，然后在项目资源管理器中右键点击"VBAProject"，选择"插入"->"模块"。
2. 定义变量: 使用"Dim"关键字来声明一个变量，例如：Dim myValue As Double。
3. 循环语句: 使用"For"和"Next"关键字来实现循环。
例如：```For i = 1 To 10'循环操作Next i```4. 条件语句: 使用"If...Then...Else"关键字来实现条件判断。
例如：```If condition Then'条件为真时的操作Else'条件为假时的操作End If```5. 单元格操作: 使用Range对象来访问和操作单元格。
例如：```Range("A1").Value = "Hello" '将文本"Hello"写入A1单元格Range("B3").Formula = "=A1+A2" '在B3单元格中输入公式，求和A1和A2单元格的值```6. 打开和保存文件: 使用Workbooks对象来打开和保存Excel 文件。
例如：```Workbooks.Open "C:\path\to\file.xlsx" '打开文件ActiveWorkbook.SaveAs "C:\path\to\newfile.xlsx" '另存为新文件```7. 错误处理: 使用"On Error Resume Next"和"Err"对象来处理错误。
Excel VBA编程 典型实例——使用VBA进行排序
Excel VBA编程典型实例——使用VBA进行排序使用Excel 2007提供的排序按钮进行排序时，会将班级或学生的姓名也一起按升序或降序的方式进行排序，从而打乱了数据原有的顺序。
使用VBA代码对工作表进行排序时，只会在每个数据的后面标注出该数据处于的名次，而不会打乱数据原有的顺序。
1．练习要点● 冒泡算法的应用● 循环语句2．操作步骤：（1）新建一个空白工作表，创建如图7-12所示的表格。
图7-12 创建成绩表（2）单击【控件】组中的【插入】下拉按钮，在【ActiveX 控件】组中，选择【命令按钮（ActiveX 控件）】按钮。
然后，在工作表中绘制该按钮，如图7-13所示。
图7-13 绘制控件按钮（3）选择所绘制的“命令控件”按钮，并在【属性】对话框中，设置Caption 为“成绩排序”文字，如图7-14所示。
图7-14 设置按钮属性提 示单击【控件】组中的【控件属性】按钮，即可打开【属性】对话框。
、（4）选择“成绩排序”命令按钮，在【属性】对话框中，单击Font 右侧的【浏览】按钮，如图7-15所示。
创建选择绘制效果图7-15 单击【浏览】按钮（5）在弹出的【字体】对话框中，设置【字体】为“隶书”；【大小】为“三号”，如图7-16所示。
图7-16 设置字体格式技 巧选择“命令控件”按钮中的文字，在【字体】选项卡中，也可以设置控件的字体格式。
（6）在弹出的代码编辑器窗口中，输入如图7-17所示的代码。
图7-17 输入代码其中，在代码编辑窗口中输入的代码如下：Private Sub CommandButton1_Click()Dim myarray()Dim m, n, i, j As Integern = Application.WorksheetFunction.CountA(Columns(1))'从第二列到第八列一共循环七次For m = 2 To 8'给数组赋值ReDim myarray(n)For i = 3 To nmyarray(i) = Cells(i, m).ValueNext i选择单击设置 效果输入'用冒泡排序法对数组中的元素进行排序操作For j = 0 To n - 2For i = n To j + 2 Step -1If myarray(i) > myarray(i - 1) Thentemp = myarray(i)myarray(i) = myarray(i - 1)myarray(i - 1) = tempEnd IfNextNextFor i = 1 To nDebug.Print myarray(i)Next i'将各数值在列中的排名加括号后添加到原单元格的数值后面，中间空一个空格For i = 3 To ns = Application.WorksheetFunction.Match(Cells(i, m), myarray, -1) - 1Cells(i, m).Value = Cells(i, m).Value & Space(1) & "(" & s & ")"Next iNext m'主体程序执行完毕使各列的宽度与单元格的大小相适应Cells.SelectSelection.Columns.AutoFitCommandButton1.Enabled = TrueMsgBox "排序完成！", vbOKOnly, "提示框"End Sub（7）单击【控件】组中的【设计模式】按钮，即可取消该模式。
VBA实操技巧与案例应用
VBA实操技巧与案例应用VBA（Visual Basic for Applications）是一种由微软开发的编程语言，用于自动化处理Microsoft Office应用程序中的任务。
VBA 在Excel、Word、PowerPoint等应用中广泛应用，可以帮助用户提高工作效率，简化重复性的操作。
本文将介绍一些VBA的实操技巧，并结合案例进行应用演示。
一、录制和编辑宏VBA的基本操作之一是录制和编辑宏。
录制宏可以将用户的操作过程记录下来，并生成VBA代码。
接下来，用户可以编辑这段代码，根据自己的需求进行修改。
以下是一个以Excel为例的案例应用：案例：合并多个工作表中的数据步骤：1. 打开Excel文件，包含多个工作表。
2. 选择“开发工具”选项卡，点击“宏”按钮，弹出宏对话框。
3. 输入宏名称并点击“创建”按钮，开始录制宏。
4. 在Excel中依次选中每个工作表，然后选择“格式”选项卡，点击“整理数据”按钮，将每个工作表中的数据整理为一个数据表格。
5. 录制完成后，点击停止录制按钮。
6. 打开VBA编辑器，对录制得到的宏进行编辑，添加循环语句，实现自动合并多个工作表中的数据。
二、利用循环结构在VBA中，循环结构是实现重复性操作的重要工具。
通过熟练运用循环语句，可以简化操作步骤，提高工作效率。
以下是一个以Excel为例的案例应用：案例：批量处理Excel文件中的数据步骤：1. 打开Excel文件夹，获取文件夹中的所有文件名。
2. 利用循环语句遍历每个文件，并打开文件。
3. 对每个文件进行必要的数据处理操作，如筛选、排序、计算等。
4. 处理完成后，保存并关闭文件。
5. 继续遍历下一个文件，直至处理完所有文件。
三、用户界面设计VBA不仅仅局限于后台数据处理，它还可以进行用户界面的设计。
通过VBA，用户可以创建自定义的对话框、菜单栏等，提升应用程序的交互性和友好性。
以下是一个以Excel为例的案例应用：案例：创建自定义菜单栏步骤：1. 打开Excel文件，点击“开发工具”选项卡，进入VBA编辑器。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Excel VBA教程之一：写在前面VBA功能如何强大，这已勿庸费言，但如何才能很快进阶，写出自己满意的程序，却取决于个人努力和悟性。
我下了很大功夫却收效甚微，有时，高手一句点拨却胜读三天书。
所以，我把个人学习所得作一点整理，希望有助于后学。
只所以会有看书没用之感，一来是因为市面（我国）上大多数计算机类图书多为粗制滥造之作（这话稍有唐突），二来因为计算机这东西太呆板，不见得新出现的问题就能立即得到某本书籍上的解释，新问题总是层出不穷的。
想把一门编程语言全部搞懂，再去写点程序，是一个十分愚蠢的想法。
你想盖房子，难道你想先学会制造砖头、玻璃等？我承认，把语言弄懂再做事情会很顺手，但是，你知道吗，有多少人在弄懂一门晦涩难懂的语言之前就放弃了呢？比如，什么叫面向对象编程？OOP和以前的流线性编程有什么异同？我还是大力提倡学以致用，别指望什么事你都能成专家，计算机世界的“罗氏定理”就是：“毕其一生，不能穷其万一”，你记住了吗？那么，对于没有编程基础的人，怎样才能进步得快呢？我有几点思考：1.你一定要带着明确的目的去做一件具体的事。
这样，才会在做的过程中发现问题，并逐步去解决这些问题。
比如，我想做一个《学生成绩分析系统》，我就会想到怎么才能把学生分数分成不同的班、怎么才能算出总分、平均分、标准差等、怎样比较各班的情况，怎样用图形显示更直观，怎么样才能把某个学生的历次成绩放在一起比较等。
2.你动手去做一做，一点一点地完成你上面的设想，不必因为这个大工程没做出来而忽略你在局部的突破，这样，你会越来越有信心，这就够了，还有什么比有信心做事的感觉更好的了吗？3.合理及时利用网络资源，这绝对是个好东西，或许你看起来很了不起的问题，在别人看来简直不算什么，一定会有人为你解答。
上网并不只是QQ和game啊！同时要好好利用软件的帮助系统，这才是最权威的解释，很多计算机书籍抄自帮助，你想，微软的专家写的，绝对原创，他还能去抄谁？4.做了一些工作之后，再回过头来看书，就会感觉很亲切，觉得写书的人原来也不是一无是处，也是很辛苦的（不要过分自我批评了）。
不过，要看书，计算机类的，我百分之一万地推荐你看外国人写的，首先，软件是人家编的，当然更了解。
其次，外国人写的，又被介绍到中国来，也是比较优秀的了。
三来，我确实作过对比，看老外的书收益最大。
语言不通的问题怎么办？金山词霸一下呗。
我为什么要写这个东西？一是因为我想帮助别人，二是因为我想因此促进自己，三是因为我反感某些号称程序员的家伙，似乎编程是一件多么了不起的事，用一些极端人士的话来说：“编程有什么了不起？不就是判断和循环吗”，说得很有道理，从本质上说，计算机就是在做判断和循环，不信你就跟着我来吧。
好了，Let’s goExcel VBA教程之二：从一个界面设计开始一个好的软件，除了运算速度快、体积小后，更重要的是，它的用户界面是不是很友好、亲切，“友好、亲切”这样的词汇在开始接触计算机语言时，感觉很好笑，但现在不一样了，我感觉这两个词最贴切！界面友好，就是引导用户能很快找到他需要的服务，最能想到他的心思，最体贴他，让他不时地心动，不时地赞叹！界面友好，就是能让用户在不经意间学到好多知识，无形中丰富了他自己，让他有美的享受！界面友好，还在于一目了然的界面却能让他需要的功能呼之即来，挥之即去！如此等等。
那么，我想做一个《学生成绩分析系统》，我该怎么做呢？以下的界面你满意吗？这个界面上有你做成绩分析的各项功能，从考试的组织生成考号、到学科组录入各科成绩、到录错后的修改、到统计分析生成各班情况、各学科组情况、人头数、分数线的预测、到打印、存档、调用。
最为特色的功能是深度跟踪，它可以自动把一个学生的历次成绩都调出来，进行历史分析，看一看一位学生的成绩为什么会好或坏，这个功能能不让人心动吗？如果你不知道各个按钮的作用，旁边就是帮助系统，告诉你它们的功能是什么，你应当怎么去做。
你还有什么问题呢？如果有，我已经提供了E-mail地址，告诉我啊，可以为你量身定做！要说多余，就是版权信息了，呵呵，我也是劳动，你就尊重一下没什么大不了的啊！以上这个界面，可以说十分友好了。
那么，我到哪里去做这个东西呢？要编程吗？不用编程，打开Excel，按下Alt+F11，就可以了，我还可以右击工作表，选查看代码，还有其它方法，我的意见是一种就够了。
我们的目的是去公园玩，而不是总结有几条路可以到那里，别开小差，快回来！打开Excel，按下Alt+F11，你看到了下图：再点击“插入”菜单，选“用户窗体”，然后得到下图中间有个工具箱，上面有按钮啊、文本框啊、标签啊等等，你只要把它们拖到到右边那个带有“麻麻点”的窗体中，并调整一下它们的大小和位置，就会做得比我还好了了。
精确调整它们，要用到左下角的属性窗口。
怎么拖知道吗？不是用绳子捆住，不是用牛拉，而是用鼠标！建立了界面之后，你除了长舒一口气外，是不是体会到一点喜悦呢？生活就是这样，找个空偷着笑，不过，还是要干点实事的哟！我猜到了，现在你比我还急了，你更想赋于每个按钮一定的功能，希望点它一下，它就能做点事情，你的想法太对了，每一个按钮，当我们给它各写一段程序，让它能实现一定的功能时，我们就把叫做面向这个对象编程，对象，在这里，就是按钮。
希望那些比较“zhuai”的程序员别面带轻蔑，你倒给我说说，如何才能让不懂程序的同志很快理解“面向对象编程”这个意思？我们下一期见！Excel VBA教程之四：你要删除谁前面的学习，让我们初步体验到使用代码比较方便，代码本身也比较简单，这是VBA的优势，我们发现，编程其实并不难，不过，这只是初步，想实现比较复杂的功能，路还长着呢，好在，只要有信心，有兴趣，总是可以成功的。
那么，如果我想插入的不是一张表，而是20张表，需要运行20次上节课所提到的代码吗？其实不需要，我们只要再插入几行代码就可以了。
回顾一下：Sub 建立工作表()Sheets.AddEnd Sub可以利用工作表的Add属性增加工作表，如果想添加更多，只要设置一个循环就可以了。
还记得教程一中的那种话吗？“编程有什么了不起？不就是判断和循环吗”，我们来验证一下。
Sub 建立工作表()Dim i As IntegerFor i = 1 To 5Sheets.AddNext iEnd Sub这段代码一运行，一下子就可以插入5张表，如果你把5改成50，则一下子可以产生50张表，如果是手工插入，你要花多长时间啊！其中的for…next…就是表达循环关系的一种方式，还有其它种类，暂且不表。
值得提醒的是，循环变化i在使用前，你一定要先和dim声明一下。
你发现，所生成的工作表的名称，是自动加上去的，要是在生成的时候，就给个名字，是不是会更好呢？试试下面的代码吧。
Sub creatsheet1()Dim i As IntegerFor i = 1 To 10Sheets.Add = iNext iEnd Sub一下子生成了10张表，表名从1到10，难道用它来表示一班到十班，不是非常好吗？我想到了我们的《成绩分析系统》。
如果名字不是一个系列的数字，你可以使用数组来表达，比如知个学科表。
Sub creatsheet()Dim i As IntegerDim sheetNamesheetName = Array("语", "数", "英", "物", "化")For i = 0 To 4Sheets.Add After:=Sheets(Sheets.Count) = sheetName(i)Next iEnd Sub到目前，你的工作簿中已经有很多工作表了，如果你实验的次数足够多，你还会收到一些错误的警告，那是因为你插入的工作表重名了。
如果你要删掉一张工作表，那有点麻烦，因为你必须具体而明确地指明是哪一张工作表，否则，程序不知你对谁的工作不满意了，要删除谁，你得先指明。
这完全不象某些的领导，要表扬，就会表扬一大堆，尽管有时是某名其妙的张冠李戴，而批评，也是一本糊涂账。
怎么删呢？看下例：Sub deleteSheets()Sheets(“sheet1”).DeleteEnd Sub如果你想删掉一些工作表，你想手动还是用代码自动化呢？当然是后者，看看下例。
Sub deletesheet3()Dim i As IntegerFor i = 1 To 5Sheets(CStr(i)).DeleteNext iEnd Sub千万注意不要写成Sheets(i)，一定要加上CStr()，我就是吃了这个亏，浪费几个小时，气晕了头才发现的，计算机是多么机械的一个东西，不能越雷池一步，有点象某些死板的领导。
要是删那种不是数据系列的工作表，就得用下面的代码了。
Sub deleteSheets()Dim classNameclassName = Array("语", "数", "英", "物", "化")For i = 0 To 4Sheets(className(i)).DeleteNext iEnd Sub你插入的那些有名字的工作表，将逐一被删除！每删一张，都会给一句警告，能否让它不出现呢？再加两句代码，就可以了。
Sub Deletesheet()Dim classNameclassName = Array("语", "数", "英", "物", "化")Application.DisplayAlerts = FalseFor i = 0 To 4Sheets(className(i)).DeleteNext iApplication.DisplayAlerts = TrueEnd Sub以上代码将用到《成绩分绩系统》统计分析按钮和退出系统按钮中，点一下统计分析，就会产生各班级和各学科分数表，只是暂时还没有数据，会有的，你得有点儿耐心。
再点一下退出按钮，将把这些表给删了，会让我们的软件体积更小。
好啦，到这里，你已经可以添加你想要的任意数量的工作表，也可以把它删了，都只是弹指之间的事情，以后，你要是有什么不顺心的事，可以到这里反复添加和删除，相当于到健身房去打拳。
好象，人们越来越脆弱了，据说这样可以发泄自己，让自己很快平静下来。
常听到两句时髦的话：“要调整好心态”、“你不能改变世界，那你可以改变自己的心情”，我感觉人类真是越来越渺小，越来越脆弱了，这种对命运的逃避、妥协、呻吟和哀叹，真让人看不起，更有许多人，心态其实很差，往往张口避口对别人谈心态，仿佛自己人心态很好似的，不过是个掩耳盗铃的小丑！或许是虚张声势地掩盖自己的自卑而已。