Не работает цикл в цикле

@Makroshka · Регистрация: 26.09.2016

Author24 — интернет-сервис помощи студентам

Добрый день!

Написала код для копирования данных с другого листа при соблюдении условия, но при запуске он почему-то просто пропускается. Пыталась выяснить на каком моменте затык - получается что не воспринимается цикл, который работает на другом листе(переменная j). Не понимаю как это по-другому написать. Помогите, пожалуйста, разобраться.

Visual Basic

LR1 = Worksheets("Лист1").Cells(Rows.Count, 1).End(xlUp).row
LR2 = Worksheets("Лист2").Cells(Rows.Count, 1).End(xlUp).row
 
For i = LR1 To 2
    For j = LR2 To 2
     If Cells(i, 1) = Cells(j, 1) Then
        Cells(i, 1) = Cells(j, 2)
     ElseIf Cells(i, 1) = Cells(j, 4) Then
        Rows(i).Delete
     End If
    Next j
Next i

~~Остап Бонд~~ · 22.11.2018, 10:43

Makroshka, указывайте программе, с какого листа та или иная Cells(),
например:

Visual Basic

1 2	Worksheets("Лист1").Cells(i,1) Worksheets("Лист2").Cells(j,1)

@Makroshka · 22.11.2018, 10:47 **[ТС]**

Проставила везде листы - все равно не работает. Пишет что j = Empty

@Hugo121 · 22.11.2018, 10:47

Ну и конечно step -1
И указывайте на каком листе удаляете строку!

@Makroshka · 22.11.2018, 10:49 **[ТС]**

Ура! Заработало. Спасибо!

@Makroshka 0 / 0 / 0 Регистрация: 26.09.2016 Сообщений: 163
	22.11.2018, 10:47 [ТС]	3
	Проставила везде листы - все равно не работает. Пишет что j = Empty 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	22.11.2018, 10:47	4
	Ну и конечно step -1 И указывайте на каком листе удаляете строку! 0

@Makroshka 0 / 0 / 0 Регистрация: 26.09.2016 Сообщений: 163
	22.11.2018, 10:49 [ТС]	5
	Ура! Заработало. Спасибо! 0