Jak podzielić skoroszyt na arkusze w oddzielnych plikach .xlsx?

Otwórz Edytor Visual Basic używająć skrótu klawiaturowego lewy Alt + F11. Z menu Insert wybierz polecenie Module i wpisz kod makra:


Sub Kopiowanie_arkuszy()
  Dim sht As Worksheet, path As String
    Application.ScreenUpdating = False
        path = ActiveWorkbook.path & "\"
        For Each sht In ActiveWorkbook.Worksheets
            sht.Copy
            ActiveWorkbook.SaveAs Filename:=path & sht.Name & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook
        Next sht
    Application.ScreenUpdating = True
End Sub