excel - 在 VBA 中使用 application.match 时出现错误 2042

Question

我试图在 VBA 的数组中找到整数的索引。

我这样创建了数组。

Dim spot(11) as Integer
For index = 1 To NoOfSpotValues
   spot(index) = Cells(15 + index, 7)
Next

当我做:

posOfSpot = Application.Match(0, spot, False)

它给了我一个错误
posOfSpot = Error 2042 .

我该如何解决？尝试搜索。在这方面需要一些指导。

编辑:

Function Find(ByVal Value As Variant, arr As Variant) As Integer
If arr.Exists(Value) Then
    index = arr(Value)
Else
    index = -1
End If

Answer 1

如果您愿意使用公式而不是 VBA，您可以这样做

=MATCH(0 ,G16:G26,0)

如果找不到该值，它将返回 #N/A , 否则索引。

Sub Find(ByVal Value As Integer)
Dim spotData
Dim index As Integer

Set spotData = CreateObject("Scripting.Dictionary")
For index = 1 To 11
    spotData.Add Cells(15 + index, 7).Value, index
Next

If spotData.Exists(Value) Then
    index = spotData(Value)
Else
    index = -1
End If

Set spotData = Nothing
Debug.Print index
End Sub