Новости:

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

Главное меню

Почему-то цикл доходит до 100 и всё.

Автор Ignam, 18.07.2011, 17:04

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

Ignam

Почему-то цикл доходит до только 100

Добрый день.
Помогите советом (прикреплен файлик).
Есть макрос, который вставляет строки, скопированные с другого листа, на текущий лист. Это все крутится в цикле. Но когда цикл доходит до 100-ой строки по счётчику (несмотря на то, что строк в исходном файле больше), копирование прекращается. Но цикл должен кончаться, когда дойдет до пустой строки.


Set Sel = Range("A3:A999")
i = 1
' перебирать ВСЕ строки, пока не будет пустая (последняя):
For Each c In Sel.Rows
If c.Cells(i, 1).Value <> "" Then '
'расчистка места на целевом листе назначения для копируемой строки:
   Sheets(SourceList).Activate
   Rows("6:6").Select
   Selection.Insert Shift:=xlDown
'копирование строки:
   c.EntireRow.Copy Destination:=wn.Range("A7")
i = i + 1
End If
Next c

Ignam