Как разбить данные листа Excel на несколько листов на vba

Задача: Есть книга Excel. Необходимо данные первого листа разбить на несколько листов
Решение:
Пример разбиения про 100 строк (константа maxCount):
Sub SplitSheet()
Dim i As Long, ws As Worksheet
Const maxCount As Double = 100
Application.ScreenUpdating = False: Set ws = ActiveSheet
For i = 1 To ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1 Step maxCount
Sheets.Add After:=Worksheets(Worksheets.Count)
Sheets(1).Rows(i & ":" & i + maxCount).Copy Sheets(Sheets.Count).Range("A1")
Next
End Sub

0

0