Ограничение по строкам в макросе

[ottomellon]

Подскажите пожалуйста, как можно убрать ограничения по кол-ву строк при формировании отчета с помощью макроса?
Так получилось что макрос был написан для экселя с ограничением строк до 65тыс. но для моего объема данных этого мало и я перенес его в новый эксель с кол-вом строк - миллион.
Но теперь когда запускаю макрос, то выскакивает ошибка и формирование заканчивается на строке номер 65275.

[IgorGO]

пример строки, в которой приизошла ошибка и номер ошибки дали бы Вам хоть какую-то надежду получить ответ, файл-пример - еще больше шансов. а так... проверю свои экстрасенсорные способности (которых раньше не замечалось за мной)
скорее всего где-то переменнную типа Integer нужно сменить на Long

[Hugo121]

Integer должен был загнуться раньше... Ну разве что там какой-то выборочный отбор и эта переменная считает отобранное, и оно ранее никогда не доходило до предела... А анализируемые строки вообще не считались (Do-Loop, как любят...)

[ottomellon]

Этот макрос нашел тут на форуме.
Работает просто идеально для моих нужд, но вот когда больше 65тыс. строк выдает ошибку.
Скрины и сам файлик я выкладываю...

[IgorGO]

а так:

                    End Select
                    With ThisWorkbook
                      lLastRowMyBook = .Sheets(DataSheet).Cells.SpecialCells(xlLastCell).Row + 1
                      iRngAddress = .Range(.Cells(lLastRowMyBook, 1), .Cells(lLastRowMyBook + lLastrow, iLastColumn)).Address
                      Sheet.Range(iCopyAddress).Copy Destination:=.Sheets(DataSheet).Range(iRngAddress)
                    End With

среди исходных есть файлы формата офис2003?

[ottomellon]

Среди файлов которые обрабатываются все типа - Лист Microsoft Office Excel 97-2003 (.xls)

Скрины с заменой которую вы предложили выкладываю...

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

[IgorGO]

заменили Вы все корректно (в правильном месте).
пишете, что что теперь ошибка раньше, а на картинках та же строка желтым зарисована что и раньше

вот теперь не понятно что там может быть.
высылайте данные сюда igorgoУХОukr.net, зазберусь

[Hugo121]

Вероятно как диапазон копирования указываете целиком столбцы? Нельзя!

[Watcher_1]

Когда макрос в дебаг вываливается эти переменные что содержат?
lLastRowMyBook
lLastrow
iLastColumn
Мне кажется в одной из них косяк..., т.е. нет значения

[ottomellon]

Сообщение от Hugo121

Вероятно как диапазон копирования указываете целиком столбцы? Нельзя!

Я указываю начиная с определенной ячейки.
Без проблем формируется когда кол-во строк не превышает 65 тыс.

Сообщение от Watcher_1

Когда макрос в дебаг вываливается эти переменные что содержат?
lLastRowMyBook
lLastrow
iLastColumn
Мне кажется в одной из них косяк..., т.е. нет значения

lLastRowMyBook = 65276
lLastrow = 15226
iLastColumn = 46

Я вижу проблемы в том, что в старом excel'e 65536 строк и когда макрос пытается вставить очередной массив данных со следующей книги, то ему не хватает строк и он просто их даже не начинает вставлять, потому что в том что получается когда нажимаю END информация заканчивается на одной книге и не начинается сбор с другой.