Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

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

Автор Лилия Фатхиева, 28.01.2016, 00:05

« назад - далее »

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

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

есть список, столбец А
нужно разбить по 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