Question

如何将一个Excel中的多个sheet生成多个新的Excel文件。比如将一个Excel中有3个sheet生成3个新的Excel文件

Answer 1

End Sub

Sub 按工作表拆分()
    Dim Sh As Worksheet, N As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each Sh In Worksheets
        N = N + 1
        Sh.Copy
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sh.Name, xlWorkbookNormal
        ActiveWorkbook.Close True
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "共拆分出 " & N & "个表格为单独工作簿" & vbCrLf & "文件保存于：" & ThisWorkbook.Path & "\"
End Sub

Answer 2

你自己生成三次录制成宏就是源代码了。

Answer 3

右键工作表标签－移动或复制－新建工作薄

追问

代码生成，最好有源码..........