當(dāng)你覺得生活不盡如意，只要問自己一個問題，你為自己想要的東西付出過什么？你想變得更貴，就要付出很多時間；你要的越多，你付出的代價越大。只有相信世界是公平的，你的煩惱才能少一點(diǎn)
在工作簿中添加工作表使用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)載請注明出處
