v8: Как разбить файл Excel на несколько листов? #689574

Есть фал Exel на 50 000 записей, надо его разбить на несколько страниц. Т.е. перебираются до ходит до записи с определенным значением, и те строки которые он прошел копируют на отдельный лист. И таких значений несколько. Как такое лучше сделать?

ADODB + ADOX

имхо проще листов надублировать и удалить лишнее

надублировать листов с 50000 записями?

ну больше 256 не получится вроде ) зависит от того надо форматирование сохранять или плевать можно копировать после удаления верхних строк

Может кому понадобится макрос Sub ??????2 For N = PervajaStroka To PoslednjajaStroka + 1          If TxtZnach = "62/????" Or TxtZnach = "62/???" Or N = PoslednjajaStroka + 1 Then           PervajaStroka = 1 - первая строка из образовываемых строк PoslednjajaStroka = 6906 последняя строка из образовываемых строк Sheets("????4")=Sheets("Лист4") - имя листа где находятся строки TxtZnach = "62/????" Or TxtZnach = "62/???" - значения при нахождении которых копируются строки