當(dāng)你覺得生活不盡如意，只要問自己一個問題，你為自己想要的東西付出過什么？你想變得更貴，就要付出很多時間；你要的越多，你付出的代價越大。只有相信世界是公平的，你的煩惱才能少一點

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

#001  Sub Addsh()

#002      DimSh As Worksheet

#003      With Worksheets

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

#005          Sh.Name = '數(shù)據(jù)'

#006      EndWith

#007  End Sub

代碼解析：

Addsh過程使用Add方法在工作簿中新建“數(shù)據(jù)”工作表。

第2行代碼聲明變量Sh為工作表對象。

第4行行代碼使用Add方法在工作簿的最后新建“數(shù)據(jù)”工作表。

Add 方法應(yīng)用于Sheets和Worksheets對象時新建工作表、圖表或宏表，語法如下：

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

參數(shù)Before是可選的，指定工作表對象，新建的工作表將置于此工作表之前。

參數(shù)After是可選的，指定工作表對象，新建的工作表將置于此工作表之后。

如果Before和 After兩者均省略，則新建的工作表將插入到活動工作表之前。

參數(shù)Count可選，要新建的工作表的數(shù)目。默認(rèn)值為 1。

參數(shù)Type可選，指定新建的工作表類型。

第5行代碼將添加的工作表重命名為“數(shù)據(jù)”

PS：

如果需要添加多個工作表，外加一個For。。。Next循環(huán)即可

我是張小懶

一個愛偷懶的家伙

一個要變得越來越自信的家伙

一個正在積極努力讓自己變好的家伙

“ 轉(zhuǎn)給那些喜歡的小伙伴吧 ”

大講堂 |讓我們有態(tài)度的學(xué)習(xí)Excel

編輯 |愛“偷懶”的張小懶

轉(zhuǎn)載請注明出處