例如，假设我们有一个名为 arr 的整数数组，要查找其中是否存在值为 10 的元素，可以使用以下代码：
Dim i As Integer
For i = LBound(arr) To UBound(arr)
If arr(i) = 10 Then
End If
Next i
其中，LBound(arr) 和 UBound(arr) 分别返回数组 arr 的下限和上限。在循环中，我们依次检查数组中的每个元素，如果找到了值为 10 的元素，就可以在 if 语句块中编写需要执行的代码。
使用 VBA 内置函数查找匹配项
Excel VBA 中还提供了许多内置函数来查找匹配项。例如，要在数组 arr 中查找值为 10 的元素，可以使用以下代码：
Dim index As Integer
index = Application.Match(10, arr, 0)
If Not IsError(index) Then
End If
其中，Match 函数用于在数组 arr 中查找值为 10 的元素，如果找到了，则返回其在数组中的索引；如果未找到，则返回 #N/A 错误。我们可以使用 IsError 函数来检查返回值是否为错误，如果不是，则说明找到了匹配项。
希望以上两种方法能够帮助您在 Excel VBA 中使用数组进行查找。
