搜索动态数组中的值(vba)

Sub SearchValueInDynamicArray()
    Dim dynamicArray() As Variant
    Dim searchValue As Variant
    Dim i As Long
    
    ' 假设动态数组已经被填充了一些值
    dynamicArray = Array("Apple", "Banana", "Orange", "Mango")
    
    ' 要搜索的值
    searchValue = "Orange"
    
    ' 遍历动态数组并搜索值
    For i = LBound(dynamicArray) To UBound(dynamicArray)
        If dynamicArray(i) = searchValue Then
            MsgBox "找到了值 " & searchValue & " 在索引 " & i & " 处。"
            Exit Sub
        End If
    Next i
    
    ' 如果没有找到值
    MsgBox "未找到值 " & searchValue & "。"
End Sub