目錄

1. 創(chuàng)建一個新工作表，并將其添加到工作簿的末尾

2. 創(chuàng)建一個新工作表，并命名它

3. 創(chuàng)建一個新工作表，并將其插入到指定位置

4. 檢查是否已有同名工作表，避免重復(fù)創(chuàng)建

5. 創(chuàng)建多個工作表

6. 基于現(xiàn)有模板創(chuàng)建新工作表

注意事項：

---

1. 創(chuàng)建一個新工作表，并將其添加到工作簿的末尾

Sub CreateNewSheet()Sheets.Add ' 在工作簿末尾添加一個新工作表
End Sub

2. 創(chuàng)建一個新工作表，并命名它

Sub CreateAndNameSheet()Sheets.Add.Name = "新工作表" ' 添加并命名新工作表
End Sub

3. 創(chuàng)建一個新工作表，并將其插入到指定位置
?

Sub CreateSheetBeforeSpecificSheet()Sheets.Add Before:=Sheets("Sheet1") ' 在 "Sheet1" 之前添加新工作表
End SubSub CreateSheetAfterSpecificSheet()Sheets.Add After:=Sheets("Sheet1") ' 在 "Sheet1" 之后添加新工作表
End Sub

4. 檢查是否已有同名工作表，避免重復(fù)創(chuàng)建

Sub CreateSheetIfNotExists()Dim ws As WorksheetOn Error Resume NextSet ws = Sheets("新工作表")On Error GoTo 0If ws Is Nothing ThenSheets.Add.Name = "新工作表"ElseMsgBox "工作表 '新工作表' 已存在！"End If
End Sub

5. 創(chuàng)建多個工作表

Sub CreateMultipleSheets()Dim i As IntegerFor i = 1 To 3 ' 創(chuàng)建3個新工作表Sheets.Add After:=Sheets(Sheets.Count)ActiveSheet.Name = "新工作表" & iNext i
End Sub

6. 基于現(xiàn)有模板創(chuàng)建新工作表

Sub CreateSheetFromTemplate()Sheets("模板").Copy After:=Sheets(Sheets.Count) ' 假設(shè)有一個名為“模板”的工作表ActiveSheet.Name = "從模板復(fù)制的工作表"
End Sub

注意事項：

• 命名規(guī)則：工作表名稱不能包含特殊字符，如 / \ [ ] * ? 等，并且長度不能超過 31 個字符。
• 錯誤處理：在實際應(yīng)用中，建議加入更多的錯誤處理邏輯，以應(yīng)對可能出現(xiàn)的問題，例如工作表名稱重復(fù)、權(quán)限不足等。
• 激活工作表：如果需要確保新工作表被激活，可以在 Sheets.Add 后加上 ActiveSheet 或直接指定 .Activate 方法。