Разбить по 50 строк в разные файлы

[Лилия Фатхиева]

можете ли подсказать пожалуйста как сделать?

есть список, столбец А
нужно разбить по 50 строк из столбца А на разные файлы с разными именами эксель (в каждом файле чтоб было по 50 строк, на другом файле следующие 50 строк и тп)

[cheshiki1]

нашел на дружественном сайте, проверяйте.

Код Выделить Развернуть

Sub DivFile()
    Dim i As Long, s As String, ws As Worksheet
    Application.ScreenUpdating = False: Set ws = ActiveSheet
    For i = 1 To ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1 Step 50
        Workbooks.Add xlWBATWorksheet: ws.Rows(i & ":" & i + 49).Copy [A1]
        s = Replace(ThisWorkbook.FullName, ".xls", "-" & (Fix(i / 50) + 1) & ".xls")
        ActiveWorkbook.SaveAs s: ActiveWorkbook.Close
    Next
End Sub

[Лилия Фатхиева]

большое спасибо, супер.
все сделал автоматом)

[Александр Пугинский]

В продолжение темы

Как задать условия при которых макрос сохранит и перенесет в новые файлы определенное количество строк? т.е. шапку из исходника.

[vikttur]

Вам уже ответили:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=80807&TITLE_SEO=80807-razbivka-fayla-sokhraneniya-v-kazhdom-novom-fayle-shapki-iz-iskhodnika