INDEX MATCH VBA (возвращает значение, основанное на двух критериях)

Question

Я выполняю работу для клиента, где они получают еженедельный отчет клиентов и регионов (два столбца, для клиента & B для региона, на листе) , * Я пропустил другие столбцы в этой таблице ради ясности

Они должны соответствовать цене в этой таблице со справочной электронной таблицей, которую мы будем называть ценами. Каждая комбинация клиентов и регионов дает определенную цену, которая хранится в вышеупомянутой справочной таблице (на этом справочном листе [Цены], Столбец А является клиентом, Столбец B является регионом, Столбец C - цена для клиента A в регионе B) ,

То, что я пытаюсь сделать, это:

на основе А1 (заказчик) и B1 (регион), C1 должна быть (lookupvalue для цены на опорном листе).

Традиционная функция vlookup не будет работать, потому что необходимо выполнить несколько критериев (например, у нас могут быть разные цены для одного и того же клиента в другом регионе).

Я пробовал ниже, но безуспешно

Dim ULastRow As Long 
ActiveWorkbook.Worksheets(ActiveSheet.Name).UsedRange 
ULastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row 

Range("C2").FormulaR1C1 = _ 
"=Index(Range("C:C"), Match(Range("Prices!C1"), Range("Prices!C2:B34"), 0), 0)" 
Selection.AutoFill Destination:=Range("C2:C2" & ULastRow) 

Смотрите ссылки ниже для примера данных (К сожалению, я не смог добавить их в линию:

Что клиент получает: https://copy.com/EBABGl2EFjyFWcIH

В «Цены» или справочные данные https://copy.com/oSSJuu7Dk4ox84tz

Любые советы будут оценены.

Заранее благодарим!

Answer 1

Imho это классический случай использования базы данных вместо Excel, особенно если вы хотите регулярно выполнять такие запросы.

Однако, что-то вроде этого должно добиться того, что вы хотите в VBA:

Dim customer As String 
Dim region As String 
Dim price as Double 

For r = 2 To ThisWorkbook.Worksheets("Client").UsedRange.Rows.Count 

     customer = ThisWorkbook.Worksheets("Client").Cells(r, 1).Value 
     region = ThisWorkbook.Worksheets("Client").Cells(r, 2).Value 
     price = 0.00 

    For s = 2 To ThisWorkbook.Worksheets("Prices").UsedRange.Rows.Count 


     If ThisWorkbook.Worksheets("Prices").Cells(s, 1).Value = customer And ThisWorkbook.Worksheets("Prices").Cells(s, 2).Value = region Then 

      price = ThisWorkbook.Worksheets("Prices").Cells(s, 3).Value 
      Exit For 

     End If 

    Next 

     If price = 0.00 Then 
      ThisWorkbook.Worksheets("Client").Cells(r, 3).Value = "This customer/region combination is not stored in the reference sheet" 
     Else 
      ThisWorkbook.Worksheets("Client").Cells(r, 3).Value = price 
     End If 
Next 

Изменение рабочего листа и начальную строку (г) соответственно