【Excel·VBA】工作表的添加

当你觉得生活不尽如意，只要问自己一个问题，你为自己想要的东西付出过什么？你想变得更贵，就要付出很多时间；你要的越多，你付出的代价越大。只有相信世界是公平的，你的烦恼才能少一点

---

在工作簿中添加工作表使用Add方法，如下面的代码所示：

#001  Sub Addsh()

#002      DimSh As Worksheet

#003      With Worksheets

#004          Set Sh =.Add(after:=Worksheets(.Count))

#005          Sh.Name = '数据'

#006      EndWith

#007  End Sub

---

代码解析：

Addsh过程使用Add方法在工作簿中新建“数据”工作表。

第2行代码声明变量Sh为工作表对象。

第4行行代码使用Add方法在工作簿的最后新建“数据”工作表。

Add 方法应用于Sheets和Worksheets对象时新建工作表、图表或宏表，语法如下：

expression.Add(Before,After, Count, Type)

参数Before是可选的，指定工作表对象，新建的工作表将置于此工作表之前。

参数After是可选的，指定工作表对象，新建的工作表将置于此工作表之后。

如果Before和 After两者均省略，则新建的工作表将插入到活动工作表之前。

参数Count可选，要新建的工作表的数目。默认值为 1。

参数Type可选，指定新建的工作表类型。

第5行代码将添加的工作表重命名为“数据”

---

PS：

如果需要添加多个工作表，外加一个For。。。Next循环即可

---

我是张小懒

一个爱偷懒的家伙

一个要变得越来越自信的家伙

一个正在积极努力让自己变好的家伙

---

“ 转给那些喜欢的小伙伴吧 ”

大讲堂 |让我们有态度的学习Excel

编辑 |爱“偷懒”的张小懒

转载请注明出处