根据子表名称拆分为多个独立的excel表名称

guangfuyu

各位大神，求帮助。怎么自动将早、中、晚这三个子表拆分成一个独立excel表，春、夏、秋、冬这四个子表拆分成一个独立excel表，并两个表格分别自定义为别的名称。实例附件已上传

Jday1218

实在无法理解你这个提问，手动都可以啊

Jday1218

你如果真的喜欢复杂处理下面你试试
Sub SplitSheets()

Dim wb As Workbook
Dim ws As Worksheet
Dim newWb As Workbook

Set wb = ThisWorkbook

For Each ws In wb.Sheets
    If ws.Name = "早" Or ws.Name = "中" Or ws.Name = "晚" Then
        Set newWb = Workbooks.Add
        ws.Copy After:=newWb.Sheets(1)
        newWb.SaveAs Filename:="早中晚.xlsx"
        newWb.Close
    End If
Next ws

For Each ws In wb.Sheets
    If ws.Name = "春" Or ws.Name = "夏" Or ws.Name = "秋" Or ws.Name = "冬" Then
        Set newWb = Workbooks.Add
        ws.Copy After:=newWb.Sheets(1)
        newWb.SaveAs Filename:="春夏秋冬.xlsx"
        newWb.Close
    End If
Next ws

End Sub

guangfuyu

Jday1218 发表于 2023-2-11 01:38
你如果真的喜欢复杂处理下面你试试
Sub SplitSheets()

主要是很多，不是简单就几个，而且频繁的要用到。不想一直手动