范围参数应用定义或对象定义的错误

Question

我正在尝试创建一个基本上是vlookup 2.0的简短函数。

它需要查找一个值的多个实例，并将多个值作为一个字符串返回。

数据集具有一个代码列表（其中一个作为参数传递），它将在一定范围内（作为参数传递）查找。 然后，它下降了范围-如果代码与(x,A)处的值匹配(x,A)则会将(x, e)和(x, i)处的值连接到字符串“ locations”。

我的问题是作为参数传递的范围。 使用“监视”检查变量时，大多数值会给出错误：

应用程序定义或对象定义的错误。

我有一个下沉的感觉，这仅仅是一个语法问题。 我尝试在与被调用函数相同的工作表上以及在不同的工作表上使用范围，但都没有产生结果。

Function findLoc(code As String, searchArr As Variant) As String
    Dim locations As String    
    Dim x As Integer           
    Dim search As Variant

    Set search = searchArr
    locations = ""

    For x = 1 To search.Rows.Count     
        If search.Cells(RowIndex = x, ColumnIndex = "A").Value = code Then     
            locations = locations & search.Cells(RowIndex = x, ColumnIndex = "E").Value & _
              " in " & search.Cells(RowIndex = x, ColumnIndex = "I").Value & ", "                           
        End If
    Next

    findLoc = locations
End Function

预期结果应该类似于“ Westeros中为5，Black Mesa中为2”。 地点已更改，以保护无辜者。

到目前为止，我什至无法查看代码是否正常工作-我在Excel中只能得到#VALUE 。

---

Function findLoc(code As String, ByVal searchArr As range) As String
    Dim locations As String
    Dim x As Long

    locations = ""

    For x = 1 To searchArr.Rows.Count
        If Not IsError(searchArr.Cells(RowIndex:=x, ColumnIndex:="A").Value = 
            code) Then

                   locations = Location & searchArr.Cells(RowIndex:=x, 
                       ColumnIndex:="E").Value & " in " & 
                       search.Cells(RowIndex:=x, ColumnIndex:="I").Value & ", "
        End If
    Next

    findLoc = locations

End Function