Подстановка значений по похожим данным на разных листах

@air500 · Регистрация: 23.11.2019

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

На фото лист1 с нужными данными.
На лист3 в колонках 8 и 9 ничего нет. И попадаются данные такие же как в лист1, это колонки 4 и 6 только зеркально наоборот. Например: в лист3 LAX в 4 колонке и NYC в 6 колонка и т.д
Задача: Надо подставить данные колонок 8 и 9 из лист1 в лист3 в колонки 8 и 9, если попадается соответствие.
Написал неправильно код, не выходит из цикла.
Что неправильно?
Не смейтесь сильно 6 код в моей жизни.

Visual Basic

Sub Podstanovka()
Sheets(3).Activate
LR2 = Sheets(1).Cells(Rows.Count, 4).End(xlUp).Row
LR4 = Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row
LR6 = Sheets(3).Cells(Rows.Count, 4).End(xlUp).Row
LR8 = Sheets(3).Cells(Rows.Count, 6).End(xlUp).Row
LR9 = Sheets(3).Cells(Rows.Count, 8).End(xlUp).Row
LR10 = Sheets(3).Cells(Rows.Count, 9).End(xlUp).Row
 
Application.ScreenUpdating = False
 
  For i = 2 To LR2
     For j = 2 To LR4
       For g = 2 To LR6
        For h = 2 To LR8
          For m = 2 To LR9
            For k = 2 To LR10
            
 
        If Sheets(1).Cells(i, 4).Value = Sheets(3).Cells(h, 6).Value And Sheets(1).Cells(j, 6).Value = Sheets(3).Cells(g, 4).Value Then
           Sheets(3).Cells(m, 8).Value = Sheets(1).Cells(i, 8).Value
           Sheets(3).Cells(k, 9).Value = Sheets(1).Cells(i, 9).Value
 
           Exit For
         End If
     Next
  Next
Next
Next
Next
Next
 
Application.ScreenUpdating = True
End Sub

@Alex77755 · 03.01.2020, 00:16

А исходя из чего вы сделали вывод, что не выходит?
код предусматривает выход только из самого внутреннего цикла.
А там их 6 вложенных
И сколько данных на каждом листе тоже не понятно.
А с таким обращением с листом:

Visual Basic

1	If Sheets(1).Cells(i, 4).Value = Sheets(3).Cells(h, 6).Value And ...

Жизни может не хватить что бы дождаться окончания работы
Смотрите как работать с массивами, словарями....

@air500 · 03.01.2020, 17:01 **[ТС]**

Изменил код, сработал, но пока проверил для теста на 10 данных в столбце. На больших объемах не проверял ещё

Visual Basic

Sub Podstanovka()
Sheets(3).Activate
LR2 = Sheets(1).Cells(Rows.Count, 4).End(xlUp).Row And Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row
LR4 = Sheets(3).Cells(Rows.Count, 4).End(xlUp).Row And Sheets(3).Cells(Rows.Count, 6).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To LR2
     For j = 2 To LR4
  If Sheets(1).Cells(i, 4).Value = Sheets(3).Cells(j, 6).Value And Sheets(1).Cells(i, 6).Value = Sheets(3).Cells(j, 4).Value Then
           Sheets(3).Cells(j, 8).Value = Sheets(1).Cells(i, 8).Value
           Sheets(3).Cells(j, 9).Value = Sheets(1).Cells(i, 9).Value
 
Exit For
         End If
     Next
  Next
Application.ScreenUpdating = True
End Sub

@Alex77755 · 03.01.2020, 17:34

Сколько лет планируешь прожить?

А с таким обращением с листом:

Visual Basic

1	If Sheets(1).Cells(i, 4).Value = Sheets(3).Cells(h, 6).Value And ...

Жизни может не хватить что бы дождаться окончания работы

Смотрите как работать с массивами, словарями....

Используйте тэги форматирования текста

@Hugo121 · 03.01.2020, 19:45

Для начала нужно это AND заменить на вложенное ЕСЛИ - уже возможно в 2 раза меньше ячеек проверять нужно будет.

@Hugo121 6944 / 2849 / 548 Регистрация: 19.10.2012 Сообщений: 8,724
	03.01.2020, 19:45	5
	Для начала нужно это AND заменить на вложенное ЕСЛИ - уже возможно в 2 раза меньше ячеек проверять нужно будет. 0