日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

在VBA中，可以用Sheets.Add 方法在工作簿中新建工作表。其語法是：

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

其中參數Before、After指定新建工作表的位置，Coun指定工作表的數量，Type指定新建工作表的類型。如下例：

在工作簿新建一個名稱為“工作表1”的工作表：

Sub AddWorksheet()
On Error Resume Next
Worksheets.Add().Name = "工作表1"
End Sub

在最后一個工作表的后面新建名稱為“工作表2”的工作表：

Sub AddWorksheetAfterLast()
On Error Resume Next
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "工作表2"
End Sub

在最后一個工作表的前面新建4個工作表：

Sub Add4Worksheets()
Worksheets.Add Before:=Worksheets(Worksheets.Count), Count:=4
End Sub

運行下面的代碼中，首先給出一個提示，要求用戶輸入新建工作表的名稱，然后用該名稱新建工作表。如果出現錯誤，如名稱過長或該名稱已被使用，將直接新建一個工作表。

Sub AddNameNewSheet()
Dim NewName As String
NewName = InputBox("請輸入新建工作表的名稱。")
On Error Resume Next
Sheets.Add.Name = NewName
End Sub