vba在数组中查找指定元素 match

VBA中可以使用内置函数Match来查找数组中指定元素的位置。

Match函数需要三个参数：要查找的元素、查找范围的数组、和匹配类型（可选参数）。返回值为找到的元素在数组中的位置，如果找不到，则返回错误值。

以下是一个示例代码：

Dim myArray(4) As Integer
Dim myValue As Integer
Dim myResult As Integer
' 填充数组
myArray(0) = 10
myArray(1) = 20
myArray(2) = 30
myArray(3) = 40
myArray(4) = 50
' 要查找的元素
myValue = 30
' 在数组中查找元素位置
myResult = Application.Match(myValue, myArray, 0)
' 判断是否找到
If IsError(myResult) Then
    MsgBox "元素未找到"
    MsgBox "元素在数组中的位置为 " & myResult
End If
在上述示例中，我们创建了一个包含5个元素的整数数组，并在其中填充了一些数据。然后，我们定义要查找的元素myValue为30，使用Match函数查找该元素在数组中的位置，并将返回值存储在myResult变量中。最后，我们使用MsgBox函数将结果输出到屏幕上。
需要注意的是，如果要查找的元素在数组中不存在，Match函数会返回一个错误值。因此，我们需要使用IsError函数检查返回值是否为错误值，以确定元素是否被找到。