Excel Formula/Excel-Macro/Duplicate data

Question

Добрый день, очень нужна помощь в отношении определенного результата поиска/возврата excel. Я пробовал INDEX/MATCH, VLOOKUP и VBA, но все они потерпели неудачу, так как я не очень хорошо знаком с ними.

Проблема в этом.

Значение поиска будет идентификатором productID и ContractID и типом изменения. В этом случае это «delete», который имеет несколько значений. Я хотел бы вернуть значения в столбце Old Value на основе последней даты в столбце Valid From. Поэтому

LOOKUP VALUE - идентификатор продукта - договор ID - тип изменения

то критерии для выбора нескольких результатов будет дата последней из действителен с. Пожалуйста, помогите. С наилучшими пожеланиями.

Answer 1

Возможно, это сработает? не уверен, вы можете попробовать его видеть, делает ли она:

=SUMPRODUCT((A:A=123456)*(B:B="SGSINtest")*(C:C="delete")*(D:D=MAX(IF(AND(A:A=123456,B:B="SGSINtest,C:C=""delete"),D:D)))*(E:E)) 

где колонок А представляет идентификатор продукта столбец B представляет идентификатор и столбца C представляет тип и D представляет дату Действительно с E представляет OldValue?

Answer 2

Это (очень простой) макрос, который должен дать вам как-то то, что вы ищете, но будьте осторожны, что он не оптимизирован, может быть очень медленным на больших данных, и, кроме того, он предполагает, что столбцы даты отформатированы как типы даты. Учитывая критерии, он дает вам строку (как объект Range), которая соответствует критериям и имеет наивысшую дату, если выполняется более одной строки. Если ни одна строка не соответствует критериям, она возвращает «Ничего».

Function rowWithHighestVF(productId As Long, contractId As String, typeOfChange As String) As Range 
    Dim r As Range, validFrom As Date, maxVF As Date: maxVF = 0 
    For Each r In UsedRange.Rows 
     If r.Cells(1) = productId And r.Cells(2) = contractId And r.Cells(3) = typeOfChange Then 
      validFrom = r.Cells(4) 
      If validFrom > maxVF Then 
       maxVF = validFrom 
       Set rowWithHighestVF = r 
      End If 
     End If 
    Next 
    If Not rowWithHighestVF Is nothing then rowWithHighestVF.Activate 
End Function 

Это отправная точка. Заставьте его работать с вашими данными, а затем попытайтесь его оптимизировать. Надеюсь, поможет.