摘要：《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。
《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。
这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过渡教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是VBA代码解决方案第二十讲：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可选，指定新建的工作表类型。
如果增加一个工作表，可以参考下面的通用代码：
Sub mynz_20_1
Dim sh As Worksheet
With Worksheets
Set sh = .Add(After:=Worksheets(.Count))
sh.Name = "MY"
End With
End Sub
代码截图：
代码解析：上述过程使用Add方法在工作簿中新建“MY”工作表。
a) 第2行代码声明变量Sh为工作表对象。
b) 第4行行代码使用Add方法在工作簿的最后新建一个工作表。
c) 第5行代码将添加的工作表重命名为“MY”。
如果需要在工作簿中批量添加工作表，可以使用下面的代码：
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
End Sub
代码截图：
代码解析：
上述过程使用For...Next 语句和Add方法在工作簿中添加8张工作表并将添加的工作表依次重命名。
使用Delete方法可以删除工作表，应用于工作表对象的Delete方法删除指定的对象。
语法如下：expression.Delete
参数expression是必需的。
在删除工作表时会有一个系统提示，在必要的时候要避免这个提示，如何编写这个代码呢？可以参考下面的部分。
在运行添加工作表代码前先删除工作簿中的工作表虽然可以避免同名错误,但也可能误删除有用的工作表,因此更为严谨的方法是在添加前先判断工作簿中是否存在相同名称的工作表,然后再进行下一步的操作。
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
End If
Next
With Worksheets
Set sh = .Add(After:=Worksheets(.Count))
sh.Name = "MY"
End With
End 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"
代码运行结果：
今日内容回向：
1 ADD方法的意义是什么？
2 DELETE方法的意义是什么？
3 Application.DisplayAlerts 的意义是什么？
本讲内容参考程序文件：VBA代码解决方案（20-21）.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
来源：VBA语言专业教育