VBA 数组查找：如何高效判断数字是否存在

可以使用 VBA 中的 InStr 函数来检索一个数字是否在数组中存在。具体方法如下：

1. 定义一个数组并初始化：

Dim myArray As Variant
myArray = Array(1, 2, 3, 4, 5)

2. 使用 InStr 函数来检索一个数字是否在数组中存在：

Dim num As Integer
num = 3

If InStr(Join(myArray, ","), num) > 0 Then
    MsgBox '数字存在于数组中！'
Else
    MsgBox '数字不存在于数组中！'
End If

3. 解释一下上面的代码：

• Join 函数将数组中的元素连接成一个字符串，并用逗号分隔。
• InStr 函数在连接后的字符串中搜索指定的数字，如果找到则返回其在字符串中的位置，否则返回 0。
• 如果 InStr 函数返回的位置大于 0，则说明数字存在于数组中，否则不存在。

使用上述方法可以有效率地检索一个数字是否在数组中存在。