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

PegasusUnicorn Пользователь Сообщений: 10 Регистрация: 01.01.1970	#1 12.10.2008 09:39:55 Уважаемые знатоки Excel! Как автоматизировать процесс разбиения листов Excel на несколько. В исходной книге один непустой лист с ~15500 строками. Нужно разбить на листы по 5000 строк. Дано: XP HE + MS Excel 2003.

Лузер™ Гость	#2 12.10.2008 11:31:48 Sub Макрос1() Set Sh = ActiveSheet imax = Sh.UsedRange.Rows.Count iStep = 5000 For i = 1 To imax Step iStep k = Application.WorksheetFunction.Min(i + iStep - 1, imax) Sh.Select Rows(i & ":" & k).Select Selection.Copy Worksheets.Add.Name = "Строки " & i & "-" & k ActiveSheet.Paste Next End Sub Помелькает, конечно, селектами, но после вчерашнего лень напрягать голову. Зато работать будет.