VBA 判断元素是否在数组中

在 VBA 中，可以使用函数 `Application.Match()` 来判断一个元素是否在数组中。具体操作如下：

1. 定义数组及元素：

Dim myArray(1 To 5) As String
Dim myElement As String

myArray(1) = "apple"
myArray(2) = "banana"
myArray(3) = "orange"
myArray(4) = "pear"
myArray(5) = "grape"

myElement = "banana"

2. 使用 `Application.Match()` 函数判断元素是否在数组中：

If Not IsError(Application.Match(myElement, myArray, 0)) Then
    MsgBox myElement & " is in the array."
Else
    MsgBox myElement & " is not in the array."
End If

该函数返回元素在数组中的位置，如果元素不在数组中，则返回错误值。因此，使用 `IsError()` 函数判断返回值是否为错误值，即可判断元素是否在数组中。

相关问题

用vba写一个判断数组的长度的程序

以下是一个用 VBA 判断数组长度的示例程序：

Sub ArrayLength()
    Dim arr() As Integer
    Dim len As Integer
    
    '初始化数组
    arr = Array(1, 2, 3, 4, 5)
    
    '获取数组长度
    len = UBound(arr) - LBound(arr) + 1
    
    '输出数组长度
    Debug.Print "数组长度为：" & len
End Sub

在这个示例程序中，我们首先声明了一个整型数组 `arr`，并将其初始化为包含 1 到 5 这五个元素的数组。然后，我们使用 `UBound` 和 `LBound` 函数计算数组的长度，并将结果存储在变量 `len` 中。最后，我们通过 `Debug.Print` 输出数组的长度。

需要注意的是，数组的长度是由数组的上下界决定的，因此我们需要使用 `UBound` 和 `LBound` 函数来计算数组的长度。其中，`UBound(arr)` 返回数组 `arr` 的上界，而 `LBound(arr)` 返回数组 `arr` 的下界。通过将数组的上下界相减并加上 1，即可得到数组的长度。

vba，删除数组中的指定元素

在 VBA 中，可以使用 For 循环和 If 语句来删除数组中的指定元素。具体步骤如下：

1. 定义一个新数组，用于存储删除指定元素后的结果。

2. 使用 For 循环遍历原始数组中的每个元素。

3. 使用 If 语句判断当前元素是否为要删除的元素。如果是，就跳过当前循环；如果不是，就将该元素添加到新数组中。

4. 最后返回新数组作为删除指定元素后的结果。

以下是一个示例代码：

Sub DeleteElementFromArray()
    Dim arr() As Integer
    Dim i As Integer, j As Integer
    Dim deleteValue As Integer
    Dim newArr() As Integer
    
    ' 初始化原始数组
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    deleteValue = 5 ' 要删除的元素
    
    ' 遍历原始数组，将不需要删除的元素添加到新数组中
    ReDim newArr(UBound(arr) - 1) ' 定义新数组的大小
    j = 0
    For i = 0 To UBound(arr)
        If arr(i) <> deleteValue Then
            newArr(j) = arr(i)
            j = j + 1
        End If
    Next i
    
    ' 输出结果
    For i = 0 To UBound(newArr)
        Debug.Print newArr(i)
    Next i
    
End Sub

在上面的代码中，原始数组为 arr，要删除的元素为 deleteValue，新数组为 newArr。运行上面的代码后，输出结果为：

1
2
3
4
6
7
8
9

可以看到，数组中的元素 5 已经被成功删除了。