vba数组怎么删除某个元素

要删除一个VBA数组中的特定元素，您可以使用以下方法之一：

1. 使用ReDim语句重新定义数组的大小，并将要删除的元素跳过。这将创建一个新的数组，不包含要删除的元素。以下是一个示例代码：

Sub DeleteElementFromArray()
    Dim arr() As Variant
    Dim i As Integer
    Dim elementToDelete As Variant
    Dim newArr() As Variant
    
    ' 初始化数组
    arr = Array("Apple", "Banana", "Orange", "Mango")
    
    ' 要删除的元素
    elementToDelete = "Banana"
    
    ' 遍历数组，创建新的数组，跳过要删除的元素
    ReDim newArr(LBound(arr) To UBound(arr) - 1)
    For i = LBound(arr) To UBound(arr)
        If arr(i) <> elementToDelete Then
            newArr(i - IIf(i > LBound(arr), 1, 0)) = arr(i)
        End If
    Next i
    
    ' 输出结果
    For i = LBound(newArr) To UBound(newArr)
        Debug.Print newArr(i)
    Next i
End Sub

2. 使用Filter函数，该函数返回一个新数组，其中包含不包含要删除元素的元素。以下是一个示例代码：

Sub DeleteElementFromArray()
    Dim arr() As Variant
    Dim elementToDelete As Variant
    Dim newArr() As Variant
    
    ' 初始化数组
    arr = Array("Apple", "Banana", "Orange", "Mango")
    
    ' 要删除的元素
    elementToDelete = "Banana"
    
    ' 使用Filter函数创建新的数组，不包含要删除的元素
    newArr = Filter(arr, elementToDelete, False)
    
    ' 输出结果
    Dim i As Integer
    For i = LBound(newArr) To UBound(newArr)
        Debug.Print newArr(i)
    Next i
End Sub

无论使用哪种方法，都可以删除VBA数组中的特定元素。