vba实现工作表拆分多个工作薄

一、源表展示:

 二、代码部分:

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

三、结果呈现: