Sheet 相關用法

1.新增 (Add)

Worksheets.add   '新增一個工作表

Worksheets.add().name = "NewSheet"  '新增一個叫 "NewSheet"  的工作表

Worksheets.Add before:=Worksheets(2)  '新增在第二個工作表之前的一個工作表

Worksheets.Add after:=Worksheets(1) '新增在第一個工作表之後的一個工作表

Worksheets.Add Count:=10 '新增十個工作表

Worksheets(2).Name = "123" '將第二個工作表命名為 "123"

Worksheets.Count '現有的工作表數量

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "MySheet" '新增一個名為"MySheet" 的工作表 並插在最後一個工作表之後

Worksheets.Add After:=Worksheets(Worksheets.Count), Count:=4 ' 新增四個工作表 並插在最後一個工作表之後

2.複製 (Copy)

Worksheets("MySheet").Copy After:=Worksheets("MySheet") '複製名為"MySheet" 的工作表 並插在名為"MySheet" 的工作表之後

Worksheets("MySheet").Copy before:=Worksheets("MySheet") '複製名為"MySheet" 的工作表 並插在名為"MySheet" 的工作表之前

3.移動  (Move)

Worksheets("123").Move after:=Worksheets("MySheet")  ' 移動名為"123"的工作表到名為"MySheet"的工作表之後

Worksheets("123").Move before:=Worksheets("MySheet")  ' 移動名為"123"的工作表到名為"MySheet"的工作表之前

4.刪除 (Delete)

Worksheets("MySheet").Delete '刪除名為"MySheet" 的工作表

ActiveSheet.Delete '刪除作用中的工作表

刪除工作表會出現警告視窗 ，通常會搭配下面兩個行語法使用
Application.DisplayAlerts = False '關閉警告視窗
Application.DisplayAlerts = True '恢復警告視窗

5.其他

Worksheets.Count  '工作表總數量

Worksheets(1).Name '第一個工作表名稱

Worksheets(Worksheets.Count).Name '最後一個工作表名稱

Worksheets("Sheet1").Activate '設定名為"Sheet1"工作表為目前作用的工作表

Worksheets("Sheet1").Select '選取名為"Sheet1"的工作表

有任何問題歡迎留言