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 已经被成功删除了。