Друзья!
С наступающим всех!
Имеем:
1. Лист excel с данными, которые необходимо сравнить между собой
2. Макрос для решения этой задачи.
Вопрос: в макросе не работает команда "exit for", т.е. после того как условие выполнено, цикл продолжается. В чем я ошибся?
Sub Данные()
For a = 1 To 3
For b = 2 To 5
Cells(b, 5) = 1
If Cells(a, 1) = Cells(b, 6) And Cells(a, 2) = Cells(b, 7) And Cells(a, 3) = Cells(b, 8) Then
Cells(a, 4) = "Да"
Exit For
End If
Next b
Next a
End Sub
С наступающим всех!
Имеем:
1. Лист excel с данными, которые необходимо сравнить между собой
2. Макрос для решения этой задачи.
Вопрос: в макросе не работает команда "exit for", т.е. после того как условие выполнено, цикл продолжается. В чем я ошибся?
Sub Данные()
For a = 1 To 3
For b = 2 To 5
Cells(b, 5) = 1
If Cells(a, 1) = Cells(b, 6) And Cells(a, 2) = Cells(b, 7) And Cells(a, 3) = Cells(b, 8) Then
Cells(a, 4) = "Да"
Exit For
End If
Next b
Next a
End Sub