Как выделить и копировать по 10 строк?

[Сергей11]

Здравствуйте. Подскажите как Excel документ в котором 10000 строк разбить по 10 строк и сохранить каждые 10 строк в отдельный файл. Нашел такой код который все сохраняет, но только по одной строке:

Код: Выделить всё

Sub beereator()
Application.ScreenUpdating = False
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
Rows(i).Select
Selection.Cut
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Desktop\b" & i & ".csv", FileFormat:=xlNormal 'файлы имунуются b1, b2, b3 и кладутся в корневой каталог
ActiveWorkbook.Close
Next
Application.ScreenUpdating = False
End Sub

Подскажите пожалуйста как исправить чтобы сохранял не по одной строке, а например 10 или 20 строк в один файл.

[alibek]

В цикле добавить Step.
В Rows указывать диапазон.

[Сергей11]

Спасибо за ответ. Разобрался. Получилось так:

Код: Выделить всё

Sub beereator()
Application.ScreenUpdating = False
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row Step 10
    Rows(i & ":" & i + 9).Select
    Selection.Cut
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\list" & i & ".csv", FileFormat:=xlNormal 'файлы имунуются b1, b2, b3 и кладутся в корневой каталог
    ActiveWorkbook.Close
Next
Application.ScreenUpdating = False
End Sub

Только никак не пойму как правильно написать чтобы каждый документ именовался по по порядку: list1.csv, list2.csv,list3.csv и т.д. Сейчас в конце добавляется 1. Получается list1.csv, list11.csv, list21.csv, list31.csv и т.д

[Vi]

Код: Выделить всё

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\list" & i & ".csv", FileFormat:=xlNormal 'файлы имунуются b1, b2, b3 и кладутся в корневой каталог


Только никак не пойму как правильно написать чтобы каждый документ именовался по по порядку: list1.csv, list2.csv,list3.csv и т.д. Сейчас в конце добавляется 1. Получается list1.csv, list11.csv, list21.csv, list31.csv и т.д

"C:\Users\list" & (i\10+1) & ".csv",

[Сергей11]

Код: Выделить всё

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\list" & i & ".csv", FileFormat:=xlNormal 'файлы имунуются b1, b2, b3 и кладутся в корневой каталог


Только никак не пойму как правильно написать чтобы каждый документ именовался по по порядку: list1.csv, list2.csv,list3.csv и т.д. Сейчас в конце добавляется 1. Получается list1.csv, list11.csv, list21.csv, list31.csv и т.д

"C:\Users\list" & (i\10+1) & ".csv",

Спасибо за ответ. Разобрался.

[Сергей11]

Можете еще подсказать насчет формата. Если ставлю так

Код: Выделить всё

Sub beereator()
Application.ScreenUpdating = False
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row Step 200
    Rows(i & ":" & i + 200).Select
    Selection.Cut
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:= "C:\Users\list" & i \ 200 & ".csv", FileFormat:=6 'файлы имунуются b1, b2, b3 и кладутся в корневой каталог
    ActiveWorkbook.Close
Next
Application.ScreenUpdating = False
End Sub

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

[pronto]

Application.DisplayAlerts = False
' полезные действия
Application.DisplayAlerts = True

[Qwertiy]

Код: Выделить всё

ActiveWorkbook.Close savechanges:=False