【分享成果，随喜正能量】一个内心真正强大的人，不是征服了什么，而是能够承受什么。内心强大的人，往往自带光芒。众人以顺境为乐，而君子乐自逆境中来，直面困境，战胜心底的恐惧，尽人事听天命。一个人的涵养，不在心平气和时，而是心浮气燥时；一个人的理性，不在风平浪静时，而是众声喧哗时；一个人的慈悲，不在居高临下时，而是人微言轻时；情侣间的尊重，不是闲情逸致时，而是观点相左时;夫妻间的恩爱，不在花前月下时，而是大难临头时！
《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。
这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第20讲：工作表对象的添加与删除处理
第二十讲 EXCEL工作表的添加与删除
大家好,今天继续讲解VBA代码解决方案，今日的内容是第20讲，EXCEL工作表的添加与删除。在工作簿中添加工作表使用Add方法，Add 方法应用于Sheets和Worksheets对象时新建工作表、图表或宏表。
语法：expression.Add(Before, After, Count, Type)
参数
a) Before是可选的，指定工作表对象，新建的工作表将置于此工作表之前。
b) After是可选的，指定工作表对象，新建的工作表将置于此工作表之后。
如果Before和 After两者均省略，则新建的工作表将插入到活动工作表之前。
c) Count可选，要新建的工作表的数目。默认值为 1。
d) Type可选，指定新建的工作表类型。
1 利用Add方法增加一个工作表的通用代码
如果增加一个工作表，可以参考下面的通用代码：
Sub mynz_20_1()
Dim Sh As Worksheet
With Worksheets
Set Sh = .Add(after:=Worksheets(.Count))
Sh.Name = "MY"
With
Sub
代码解析：MyAddsh过程使用Add方法在工作簿中新建“MY”工作表。
a) 第2行代码声明变量Sh为工作表对象。
b) 第4行行代码使用Add方法在工作簿的最后新建一个工作表。
c) 第5行代码将添加的工作表重命名为“MY”。
2 批量添加工作表的代码
如果需要在工作簿中批量添加工作表，可以使用下面的代码。
Sub mynz_20_2()
Dim i As Integer
Dim sh As Worksheet
For i = 101 To 102
Set sh = Sheets.Add(after:=Sheets(Sheets.Count))
sh.Name = i
Next
Sub
代码解析：
MyAddsh_2过程使用For...Next 语句和Add方法在工作簿中添加8张工作表并将添加的工作表依次重命名。
3 Delete方法删除工作表
使用Delete方法可以删除工作表，应用于工作表对象的Delete方法删除指定的对象。
语法如下：expression.Delete
参数expression是必需的。
在删除工作表时会有一个系统提示，在必要的时候要避免这个提示，如何编写这个代码呢？可以参考下面的部分。
4 添加新工作表通用方法
在运行添加工作表代码前先删除工作簿中的工作表虽然可以避免同名错误,但也可能误删除有用的工作表,因此更为严谨的方法是在添加前先判断工作簿中是否存在相同名称的工作表,然后再进行下一步的操作。
Sub mynz_20() '第20讲 EXCEL工作表的添加与删除
Dim sh As Worksheet
For Each Sh In Worksheets
If Sh.Name = "MY" Then
MsgBox "工作簿中已有""MY""工作表,将删除原存在的工作表"
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
EXIT FOR
If
Next
With Worksheets
Set sh = .Add(after:=Worksheets(.Count))
sh.Name = "MY"
With
Sub
代码解析：
mynz_20过程是先检查工作表中是否含有“MY”工作表，如果有，立刻删除，最后使用Add方法在工作簿中新建“MY”工作表.
a) For Each…. Next…. 将遍历工作表，检查原工作表中是否含有“MY”的工作表。
b) MsgBox "工作簿中已有""MY""工作表,将删除原存在的工作表" 如果有“MY”的工作表，首先要弹出一个对话框，告知有这个工作表，讲删除。
c) Application.DisplayAlerts = False 将关闭弹出的警告对话框。
d) Application.DisplayAlerts = True 将打开弹出的警告对话框。
e) sh.Delete 删除原有的工作表。
f) Set sh = .Add(after:=Worksheets(.Count))
sh.Name = "MY"
添加一个新的工作表，工作表的名称为"MY"
代码截图：
工作表界面截图：
运行后首先出现下面的对话框，删除原来的工作表，之后再新建一个工作表。
