如何编写删除数组指定值元素的VBA函数？现有代码失效

你的代码无法运行的核心原因有两个：

1. VBA的普通数组没有Remove方法，只有Collection（集合）或ArrayList对象支持该方法，你混淆了数组和集合的类型。
2. 即使操作集合，用For Each遍历过程中删除元素会导致遍历异常（跳过元素），因为集合的元素索引会动态变化。

以下针对「普通数组」和「集合」两种场景，分别给出可运行的解决方案：

方案1：处理普通VBA数组 #

VBA不支持直接删除数组元素，需要通过重新构建新数组的方式实现需求：

Function removeAllFromArray(ByVal element As Variant, ByRef myArray As Variant) As Boolean
    Dim tempArr() As Variant
    Dim i As Long, keepCount As Long
    
    ' 校验输入是否为数组
    If Not IsArray(myArray) Then
        removeAllFromArray = False
        Exit Function
    End If
    
    ' 统计需要保留的元素数量
    keepCount = 0
    For i = LBound(myArray) To UBound(myArray)
        If myArray(i) <> element Then
            keepCount = keepCount + 1
        End If
    Next i
    
    ' 构建新数组并复制保留元素
    If keepCount > 0 Then
        ReDim tempArr(LBound(myArray) To LBound(myArray) + keepCount - 1)
        keepCount = LBound(myArray)
        For i = LBound(myArray) To UBound(myArray)
            If myArray(i) <> element Then
                tempArr(keepCount) = myArray(i)
                keepCount = keepCount + 1
            End If
        Next i
        myArray = tempArr
    Else
        ' 所有元素都被删除，清空数组
        myArray = Empty
    End If
    
    ' 返回结果：True=所有指定元素已移除，False=仍有残留
    removeAllFromArray = Not arrayContainsA(myArray, element)
End Function

Function arrayContainsA(ByRef arrayOfSearch As Variant, ByVal searchedElement As Variant) As Boolean
    Dim i As Long
    
    ' 处理空数组情况
    If IsEmpty(arrayOfSearch) Then
        arrayContainsA = False
        Exit Function
    End If
    
    ' 处理非数组的单个值情况
    If Not IsArray(arrayOfSearch) Then
        arrayContainsA = (arrayOfSearch = searchedElement)
        Exit Function
    End If
    
    For i = LBound(arrayOfSearch) To UBound(arrayOfSearch)
        If arrayOfSearch(i) = searchedElement Then
            arrayContainsA = True
            Exit Function
        End If
    Next i
    
    arrayContainsA = False
End Function

方案2：处理Collection集合 #

如果你实际使用的是集合而非数组，需通过反向遍历避免删除元素导致的索引混乱：

Function removeAllFromCollection(ByVal element As Variant, ByRef col As Collection) As Boolean
    Dim i As Long
    
    ' 从后往前遍历，避免删除元素影响未遍历的索引
    For i = col.Count To 1 Step -1
        If col(i) = element Then
            col.Remove i
        End If
    Next i
    
    ' 返回结果：True=所有指定元素已移除，False=仍有残留
    removeAllFromCollection = Not collectionContains(col, element)
End Function

Function collectionContains(ByVal col As Collection, ByVal searchedElement As Variant) As Boolean
    Dim i As Long
    
    For i = 1 To col.Count
        If col(i) = searchedElement Then
            collectionContains = True
            Exit Function
        End If
    Next i
    
    collectionContains = False
End Function

关键注意点 #

• 数组场景：必须通过「统计保留元素→构建新数组→替换原数组」的流程实现删除，VBA不支持直接操作数组元素的删除。
• 集合场景：必须反向遍历删除元素，否则会出现遍历跳过元素的问题。
• 返回值逻辑：函数返回True表示处理后目标中已无指定元素，所有匹配项均被移除；返回False表示仍有残留的指定元素。

内容的提问来源于stack exchange，提问作者Attila Gábris