Добрый день!
Уважаемые участники форума, помогите пожалуйста, не понимаю в чем может быть ошибка при выполнении кода:
Вылетает subscript out of range
Уважаемые участники форума, помогите пожалуйста, не понимаю в чем может быть ошибка при выполнении кода:
Код |
---|
n = Worksheets("SQL Results").Cells(Rows.Count, 2).End(xlUp).Row n1 = Worksheets("Выкладка").Cells(Rows.Count, 1).End(xlUp).Row ReDim arrV(n1, 1) As Variant ReDim arrMp(n, 2) As Variant 'Заполняем массивы arrMp = Range(Cells(2, 2), Cells(n, 2)) Worksheets("Выкладка").Select arrV = Range(Cells(2, 1), Cells(n1, 1)) Worksheets("SQL Results").Select 'Загружаем по минимальным выкладкам For i = 2 To n For i1 = 2 To n1 If arrMp(i, 2) = arrV(i1, 1) Then Cells(i, 35) = "Да" Cells(i, 36) = Worksheets("Выкладка").Cells(i1, 2) |