一、源表展示:
二、代码部分:
Sub text()
Dim WK As Workbook
Dim sh As Worksheet
Dim a As Integer
For Each sh In ThisWorkbook.Worksheets
Set WK = Workbooks.Add
i = i + 1
Workbooks(1).Sheets(i).Copy Workbooks(2).Sheets(1)
WK.SaveAs ThisWorkbook.Path & sh.Name & “.xlsx”
WK.Close
Set WK = Nothing
Next
End Sub
三、结果呈现:
版权声明：本文为h_XUYUAN原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。