选择表

'方法1
Sheet1.Select
'方法2
Sheets(1).Select
'方法3
Sheets("1月").Select

插入表

'随意插入
Sheets.Add
'before/after 指定次序，count指定数目
Sheets.Add after:=sheet3, Count:=2
'最后一个表后插入
Sheets.Add after:=Sheets(Sheets.Count)

重命名

Sheets.Name = ""

Sub 取表名()
Dim i As Integer

For i = 2 To Sheets.Count
    Range("a" & i - 1) = Sheets(i).Name
Next

End Sub

删除表

Sheet1.Delete

'忽略警告删除表
Excel.Application.DisplayAlerts = False

sheet2.Delete

拷贝表

Sheet1.Copy after:=Sheets(Sheets.Count)

Sub 表格拆分成多个文件()
Dim sht As Worksheet

For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx"
    ActiveWorkbook.Close
Next

End Sub