【导读】学以致用,昨天讲了循环语句,今天用一个简单案例来看一下具体用法。案例:如何以 A 列的单元格内容为名称,批量创建工作表?如何批量删除 Sheet1 以外的所有工作表?方法:1. 创建工作表:按 Alt + F11 打开 VBE,输入以下代... 学以致用,昨天讲了循环语句,今天用一个简单案例来看一下具体用法。 案例:
方法: 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 宏 现在就完成了,以下是演示效果: |
|