偏移+与变量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)