Прошу посильной помощи, в создании небольшого макроса
На листе 1 - содержится главная информация. На листе 2 - второстипенная Данные на Листе 1 в столбце 4 - соответсвуюют Данным на листе 2 в столбце 1 Требуется макрос, при запуске которого произойдет следующее: При нахождении одинаковой позицции на листе 1, столбец 4, каждой ячейки/столбец 1 листа 2 - в 12й столбец первого листа, копируются данные с 12го столбца Листа 2, соответствующей ячейки.
Если данные не найдены, строка просто пропускается и ничего в нее не копируется.
Строк в прайсе около 80000. +/- Очень желательно чтоб при выполнении - макрос не подвис )
Sub NetAddressInsert()
Application.ScreenUpdating = False
Dim arrIn, lngI As Long, lngJ As Long
With Worksheets("MT-Лист2")
lngJ = .Cells(.Rows.Count, 1).End(xlUp).Row
arrIn = .Range("A2:L" & lngJ).Value
End With
With Worksheets("BR-Лист1")
For lngI = 2 To .Cells(.Rows.Count, 4).End(xlUp).Row
For lngJ = 1 To UBound(arrIn, 1)
If .Cells(lngI, "D") = arrIn(lngJ, 1) Then
.Cells(lngI, "L") = arrIn(lngJ, 12)
End If
Next lngJ
Next lngI
End With
Application.ScreenUpdating = True
End Sub