Смещение + совпадение с переменной vba

Question

Я пытаюсь использовать переменную в функции offset() и match(). Но это не сработает.

For Each Valid_type In Valid_sec_type_range 

'test = Valid_sec_type_range.Cells(1, Valid_type_index).Value 
'test1 = Chr(34) & Valid_type & Chr(34) 

new_range = [OFFSET(Market_value_range,MATCH(Valid_type,sec_type,0)-1,0,COUNTIF(sec_type,Valid_type),1)] 

и когда я использую это работает, кажется, что матч функции и смещение не признают Valid_type в виде строки.

For Each Valid_type In Valid_sec_type_range 

'test = Valid_sec_type_range.Cells(1, Valid_type_index).Value 
'test1 = Chr(34) & Valid_type & Chr(34) 

new_range = [OFFSET(Market_value_range,MATCH("Asset Backed",sec_type,0)-1,0,COUNTIF(sec_type,"Asset Backed"),1)] 

Answer 1

new_range = [OFFSET(...)] является синтаксический сахар для этого:

new_range.Value = Application.Evaluate("[OFFSET(...)]") 

да так, ваше имя переменной понимается как буквенная строка, которая затем понимается как имя диапазона, и вы не имеете диапазон этого имени.

Если вы используете VBA, то сделать это в пути VBA:

new_range.Value = Market_value_range.Offset(Application.WorksheetFunction.Match(Valid_type.Value, sec_type, 0) - 1, 0).Resize(Application.WorksheetFunction.CountIf(sec_type, Valid_type.Value), 1)