在excel中利用VBA在工作簿中创建新的工作表
时间:2022-03-20 07:12:53
在VBA中,可以用Sheets.Add 方法在工作簿中新建工作表。其语法是:
Sheets.Add(Before, After, Count, Type)
其中参数Before、After指定新建工作表的位置,Coun指定工作表的数量,Type指定新建工作表的类型。如下例:
在工作簿新建一个名称为“工作表1”的工作表:
Sub AddWorksheet()
On Error Resume Next
Worksheets.Add().Name = "工作表1"
End Sub
在最后一个工作表的后面新建名称为“工作表2”的工作表:
Sub AddWorksheetAfterLast()
On Error Resume Next
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "工作表2"
End Sub
在最后一个工作表的前面新建4个工作表:
Sub Add4Worksheets()
Worksheets.Add Before:=Worksheets(Worksheets.Count), Count:=4
End Sub
运行下面的代码中,首先给出一个提示,要求用户输入新建工作表的名称,然后用该名称新建工作表。如果出现错误,如名称过长或该名称已被使用,将直接新建一个工作表。
Sub AddNameNewSheet()
Dim NewName As String
NewName = InputBox("请输入新建工作表的名称。")
On Error Resume Next
Sheets.Add.Name = NewName
End Sub
标签:名称,工作,指定,新建,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
在word文档中如何输入绝对值符号?
2023-08-17 10:45:47
![](https://img.aspxhome.com/file/2023/3/24383_0s.jpg)
word文件打不开出现错误怎么办
2022-09-24 11:27:02
如何冻结excel表格行和列?
2023-01-31 17:35:33
![](https://img.aspxhome.com/file/2023/1/38791_0s.jpg)
职场人都在用的Excel函数公式
2023-12-20 01:31:10
excel堆积面积图 excel透视柱形图 制作教程
2023-08-19 07:21:17
![](https://img.aspxhome.com/file/2023/9/a154989_0s.jpg)
excel公式产生的错误值用函数显示为空方法
2023-02-17 21:34:38
![](https://img.aspxhome.com/file/2023/2/a141782_0s.jpg)
怎么解决Win10提示未安装音频设备?
2023-09-26 23:20:22
![](https://img.aspxhome.com/file/2023/6/52466_0s.png)
word文档碰到搜狗输入法无法切换成中文的解决教程
2023-01-03 14:07:54
![](https://img.aspxhome.com/file/2023/5/25315_0s.jpg)
Excel条件格式快速准确查数据
2022-02-28 23:28:17
Excel 2007快捷删除重复记录的操作
2023-10-24 03:47:22
![](https://img.aspxhome.com/file/2023/7/43447_0s.jpg)
在Excel中轻松制作链接目录的方法
2022-11-02 16:46:23
Win10 PE是什么?Win10PE详细介绍
2023-11-19 21:06:40
![](https://img.aspxhome.com/file/2023/5/49995_0s.jpg)
Office 2021 包含 OneNote 2021, 只能安装在 Windows 10 及以后的系统上
2023-11-09 06:31:48
word 怎样为文本添加可以自动编号的多级列表?
2022-09-04 08:01:40
![](https://img.aspxhome.com/file/2023/1/35511_0s.png)
教你如何批量删除Word中选择题的答案
2023-12-07 12:43:59
![](https://img.aspxhome.com/file/2023/7/19857_0s.png)
excel表格怎样取消编辑的超链接
2023-01-13 19:46:02
![](https://img.aspxhome.com/file/2023/4/36824_0s.jpg)
win10没有硬件加速GPU计划如何强制开启?强制开启硬件加速GPU计划的方法
2023-10-11 21:06:26
![](https://img.aspxhome.com/file/2023/5/47535_0s.jpg)
word表格怎么设置显示最后一行线?
2023-03-10 21:55:57
![](https://img.aspxhome.com/file/2023/2/28942_0s.jpg)
Excel移动工作表动画教程
2022-03-10 07:39:49
![](https://img.aspxhome.com/file/2023/4/39184_0s.gif)
word中跨页表格自动加标题头方法
2023-07-01 17:35:36
![](https://img.aspxhome.com/file/2023/5/24625_0s.jpg)