Добрый день! В основной макрос мне нужно встроить часть, отвечающую за поиск совпадений и выдачу результата, помогите, пожалуйста, с ее написанием. Во вложении файл, в нем 2 вкладки Отгрузка и Оплаты. Макрос должен искать совпадения номеров из столбца D вкладки Оплаты и столбца Е вкладки Отгрузка, если номер совпал, то в соответствующую номеру строку W (Оплаты) должен выдавать название транспортной из столбца АК (Отгрузки), например ДЛ, ПЭК, Байкал, Энергия и т.п.. При этом необходимо использовать следующую логику: если номер в столбце Е (Отгрузка) найден/совпал, макрос должен по столбцу Е (Отгрузка)"подняться вверх" до первой пустой ячейки и выдать результат из столбца АК. Иногда в этой ячейке не будет названия транспортной, будет пусто, это нормально. Заранее спасибо за Ваши ответы
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
Range("W2:W" & iLastRow).ClearContents
With Worksheets("Отгрузка")
For i = 2 To iLastRow
Set FoundCell = .Columns(5).Find(Cells(i, 4), , xlValues, xlWhole)
If Not FoundCell Is Nothing Then
Cells(i, "W") = FoundCell.CurrentRegion.Cells(1).Offset(-1, 32)
End If
Next
End With
End Sub