如何将表中指定的SHEET保存成表？

jack_family

求大侠指导


Sub 拆分一簿多表()
Dim ss As Worksheet
Application.DisplayAlerts = False
For Each ss In Worksheets
    Workbooks.Add
    With ActiveWorkbook
        ss.Copy .Sheets(1)
        .SaveAs ThisWorkbook.Path & "/" & ss.Name
        .Close
    End With
Next ss
Application.DisplayAlerts = True
MsgBox "工作薄拆分完毕！"
End Sub

这个是将表中所有的SEHHT拆分成表了，如何将指定的一些SHEET拆分成表？

太极拍天雄

按住Ctrl键+鼠标左键选择连续或不连续要拆分的工作表，如果要全选就按shift+鼠标左键选择最后一个工作表，如要取消选择就Ctrl键+鼠标左键再选择一次工作表。

ykcbf1100

Sub 拆分一簿多表()   '//拆分指定的表
Dim ss As Worksheet
Application.DisplayAlerts = False
For Each ss In Worksheets(Array("Sheet1", "Sheet3"))
    Workbooks.Add
    With ActiveWorkbook
        ss.Copy .Sheets(1)
        .SaveAs ThisWorkbook.Path & "/" & ss.Name
        .Close
    End With
Next ss
Application.DisplayAlerts = True
MsgBox "工作薄拆分完毕！"
End Sub