Sub 遍历sheets下的所有对象()
For Each shs In Sheets
    k = k + 1
    Cells(k, 1) = shs.Name
Next
End Sub

Sub 遍历worksheets下的所能对象()
For Each shs In Worksheets
    k = k + 1
    Cells(k, 2) = shs.Name
Next
End Sub

Sub 工作表存在与否()
Dim sn$
For Each sht In Sheets
    sn = sht.Name
    If sn = "我的工作表" Then
        MsgBox "存在"
        Exit Sub
    End If
Next
    MsgBox "不存在"
End Sub

Sub 工作表存在与否1()
Dim sn$
For i = 1 To Sheets.Count
        a = Sheets(i).Name
    If Sheets(i).Name = "我的工作表" Then
        MsgBox "存在"
        Exit Sub
    End If
Next
     MsgBox "不存在"
End Sub

Sub 新建sheets()
‘Sheets.Add
‘Sheets.Add Sheets("abc")‘在abc工作表前面添加
‘Sheets.Add , Sheets("abc")‘在abc工作表后面添加
‘Sheets.Add after:=Sheets("abc")‘同上
‘Sheets.Add Count:=2‘新建两个工作表
‘Sheets.Add , , 2‘同上
Sheets.Add , , , xlChart‘新建图表
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

‘表达式.Move(Before, After)
‘表达式.copy(Before, After)

Sub 移动()
Sheet1.Move , Sheet3
End Sub

Sub 复制()
Sheet1.Copy Sheets(Sheets.Count)
End Sub

Sub 实例()
Dim i%, sth As Worksheet
For i = 1 To 12
    Set sth = Sheets.Add
          sth.Move after:=Sheets(Sheets.Count)
          sth.Name = i & "月"
Next
End Sub

Sub 拆分工作簿()
Dim wb As Workbook, k
k = 0
For Each sh In ThisWorkbook.Sheets
Application.DisplayAlerts = False
    Set wb = Workbooks.Add
    k = k + 1
    ThisWorkbook.Sheets(k).Copy wb.Sheets(1)
    Path = ThisWorkbook.Path & "\" & wb.Sheets(1).Name & ".xlsx"
    wb.SaveAs Path
    wb.Close
Next
Application.DisplayAlerts = True
End Sub