【导读】学以致用，昨天讲了循环语句，今天用一个简单案例来看一下具体用法。案例：如何以 A 列的单元格内容为名称，批量创建工作表？如何批量删除 Sheet1 以外的所有工作表？方法：1. 创建工作表：按 Alt + F11 打开 VBE，输入以下代...
学以致用，昨天讲了循环语句，今天用一个简单案例来看一下具体用法。
案例：
如何以 A 列的单元格内容为名称，批量创建工作表？
如何批量删除 Sheet1 以外的所有工作表？
方法：
1. 创建工作表：
按 Alt + F11 打开 VBE，输入以下代码：
Sub NewSheet()
Dim i As Integer
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row "历遍a列中不为空的单元格
Worksheets.Add after:=Worksheets(Worksheets.Count)"新建一个工作表，位置放在所有已存在工作表的后面
ActiveSheet.Name = Sheets(1).Cells(i, "A").Value "工作表的名称为A列中第i行的值
Next
End Sub
2. 删除工作表：
输入以下代码：
Sub DelSheets()
Dim sht As Worksheet
Application.DisplayAlerts = False "不提示警告
For Each sht In Worksheets "历遍所有工作表
If sht.Name <> "Sheet1" Then sht.Delete "删除除 sheet1 之外的所有工作表
Next sht
Application.DisplayAlerts = True "循环结束后恢复警告功能
End Sub
3. 制作按钮：
1) 在表格界面点击“开发工具”-->“插入”-->“按钮”
2) 依样创建 2 个按钮
3) 将按钮名称分别改为“新建工作表”和“删除工作表”
4) 右键单击“新建工作表”按钮-->选择“指定宏”
5) 选择 NewSheet 这个宏，点击“确定”
6) 用同样的方法给“删除工作表”按钮指定 DelSheets 宏
现在就完成了，以下是演示效果：
