从来就没想过我竟然也会有这么一天。。。 VBA代码： Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets ...