VBA 检查a是否存在于arrayList中

你可以使用 VBA 中的 InStr 函数来检查一个字符串是否存在于 ArrayList 中。以下是一个示例代码：

Dim arrayList As Object
Set arrayList = CreateObject("System.Collections.ArrayList")

' 添加一些元素到 ArrayList
arrayList.Add "apple"
arrayList.Add "banana"
arrayList.Add "orange"

' 检查字符串是否存在于 ArrayList 中
If InStr(Join(arrayList.ToArray, ","), "apple") > 0 Then
    MsgBox "apple 存在于 ArrayList 中"
Else
    MsgBox "apple 不存在于 ArrayList 中"
End If

在上面的代码中，我们首先创建一个 ArrayList 对象。然后，我们向 ArrayList 中添加一些元素。最后，我们使用 InStr 函数来检查字符串 "apple" 是否存在于 ArrayList 中。要使用 InStr 函数，我们需要将 ArrayList 转换为字符串，这可以通过使用 ArrayList 的 ToArray 方法和 VBA 的 Join 函数来完成。如果字符串存在于 ArrayList 中，则 InStr 函数将返回大于 0 的值；否则，它将返回 0。