VBA指定位置新建工作表并命名

VBA新建工作表可以使用WorkSheets.Add 和Sheets.Add，一般情况下两者没什么区别，新建的工作表默认生成在当前工作表前面，并且使用默认的工作表名：

Sub 新建工作表()
Sheets.Add
'WorkSheets.Add
End Sub

如果要使用自定义的工作表名新建，可以这样：

Sub 新建工作表并命名()
Sheets.Add.Name = "工作表001"        '新建一个工作表并命名
End Sub

如果要指定新建工作表的生成位置，可以这样（用Sheets.Count可以获取当前工作簿中工作表的数量，定位在工作簿的最后新建工作表）：

Sub 指定位置新建工作表并命名()
Sheets.Add after:=Sheets(2)  '在第2个工作表之后新增一个工作表
ActiveSheet.Name = "工作表001" '新建的工作表命名（利用每次新增Sheets.Add时，都是activesheet的特点）
Sheets.Add after:=Sheets(Sheets.Count)  '在最后的工作表之后新增一个工作表
ActiveSheet.Name = "工作表002" '新建的工作表命名（利用每次新增Sheets.Add时，都是activesheet的特点）
End Sub

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。