Попытка комбинировать функции INDEX и MATCH в VBA

Question

Почему это не работает?

Result = Application.WorksheetFunction.Index((Range("CountryNames")), _ 
       Application.Match((Range("B61")), (Range("CurrencyValues")), 0)) 

Answer 1

Слишком много круглых скобок. Вместо передачи диапазона до Index вы передаете значение диапазона. Это нормально для аргументов Match, так как эта функция работает так же хорошо, как и для диапазонов. Но Index может работать только с диапазонами. Попробуйте это вместо:

Result = Application.Index(Range("CountryNames"), _ 
     Application.Match(Range("B61"), Range("CurrencyValues"), 0))