Страницы: 1
RSS
Удаление повторяющихся значений с условием, Нужно удалить повторяющиеся товары из прайса, оставив товар с наменьшим значением цены
 
Добрый день, уважаемые эксперты.
Есть прайс (товар и цена), в котором повторяются позиции(товары) (совместили два прайса). Как удалить повторяющиеся товары, оставив товар с наменьшим значением цены?
Прошу помочь. Заранее благодарен
 
 swan85, так ?


Код
Sub fdf()
Dim i As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = lr To 2 Step -1
k = Application.WorksheetFunction.MinIfs(Range(Cells(2, 2), Cells(lr, 2)), Range(Cells(2, 1), Cells(lr, 1)), Cells(i, 1))
    If Cells(i, 2) > k Then
    
        Rows(i).Delete
    End If
Next i
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Кросс
Страницы: 1
Наверх