上一章給大家分享了關於Application對的屬性Workbooks的使用方法並舉例子，今天就給大家繼續分享一下關於Worksheet的使用和舉例子。

Worksheet和Worksheets的關係

Worksheet就表示一張工作表，Worksheets表示很多的工作表。

下面是對工作表的操作：

1. 新建工作表：

新建工作表需要使用Worksheets物件的方法Add,這個方法分為帶引數的和不帶引數的。

不帶引數的建立：

程式碼1：

Sub ce()

Worksheets.Add

End Sub

帶引數的建立工作表：

程式碼2：

Sub ce()

Worksheets.Add before:=Worksheets("sheet41")

End Sub

程式碼3：

Sub ce()

Worksheets.Add after:=Worksheets("sheet41")

End Sub

注意：這裡面的befroe和after引數主要作用就是指定工作表的建立位置，這兩個引數一次只能使用一個，不能同時使用，預設情況是在活動工作表之前新建。

1. 一次建立多張表格：

一次建立多張表格需要使用count引數：

Sub ce()

Worksheets.Add after:=Worksheets("sheet41"), Count:=2

End Sub

Sub ce()

Worksheets.Add Count:=2

End Sub

程式碼：

Sub ce()

Worksheets("sheet41").Delete

End Sub

3. 複製工作表

複製工作表需要使用到Copy方法。

程式碼：

Sub ce()

Worksheets("sheet38").Copy after:=Worksheets("sheet49")

End Sub

4. 修改工作表的名稱

修改工作表的名稱需要使用name方法

1． 給已經存在的工作表修改名稱

Sub ce()

Worksheets("sheet38").Name = "工資表"

End Sub

5.給新建的工作表更改名稱

Sub ce()

Worksheets("sheet39").Copy after:=Worksheets("sheet49")

ActiveSheet.Name = "福利待遇"

End Sub