工作表的添加与删除

Sheets.Add 方法

表达式.Add(Before, After, Count, Type)

XlSheetType 常量之一：
xlWorksheet 工作表
xlChart 图表
xlExcel4MacroSheet 宏表
xlExcel4IntlMacroSheet 对话框

默认值为 xlWorksheet

Sub 新建sheets()
'Sheets.Add
'Sheets.Add Sheets("abc")
'Sheets.Add , Sheets("abc")
'Sheets.Add after:=Sheets("abc")
'Sheets.Add Count:=2
'Sheets.Add , , 2
Sheets.Add , , , xlChart
End Sub

删除工作表：

Sub 删除工作表()
Sheet10.Delete
End Sub

实例：

'如果想批量新建工作表，可以结果循环来制作
Sub 新建1到12月份的工作表()
Dim j%
For j = 12 To 1 Step -1
    Sheets.Add.Name = j & "月"
Next
End Sub

'删除工作表
Sub 删除sheet()
On Error Resume Next
Application.DisplayAlerts = False ’警告窗口不再显示
Dim i%
For i = 1 To 12
    Sheets(i & "月").Delete
Next
Application.DisplayAlerts = True ‘警告窗口恢复显示
End Sub