Есть макрос, который ищет совпадающие значения по столбцам на Лист1 и Лист2 и копирует совпадения на Лист3... Суть вопроса: как оптимизировать макрос, чтобы если на Лист2 значение повторяется снова в первом столбце, в результате происходило объединение этого значения с суммированием значения из второго столбца напротив найденного. Если значение не найдено на Лист2, то вывод сообщения об этом.
Sub Analiz()
Dim iLastRowSht2 As Long
Dim iValue As String
Dim iFind As Range
Dim i As Long, n As Long
iLastRowSht2 = Sheets("Приход").Range("A65536").End(xlUp).Row
n = 1
For i = 2 To iLastRowSht2
iValue = Sheets("Приход").Cells(i, 1)
Set iFind = Sheets("Заказ").Columns(1).Find(What:=iValue, LookAt:=xlWhole)
If Not iFind Is Nothing Then
n = n + 1
Sheets("Приход").Cells(i, 1).EntireRow.Copy Destination:=Sheets("Результат").Cells(n, 1)
End If
Next
MsgBox "Смотри РЕЗУЛЬТАТ", vbInformation, "Анализ"
End Sub
Пример: