如何在userform VBA中从数组中删除元素

Sub RemoveElementFromArray()
    Dim arr() As Variant
    Dim i As Integer, j As Integer
    Dim newSize As Integer
    
    ' 初始化数组
    arr = Array(1, 2, 3, 4, 5)
    newSize = UBound(arr) - 1 ' 假设我们要删除最后一个元素
    
    ' 使用ReDim Preserve调整数组大小
    ReDim Preserve arr(newSize)
    
    ' 输出新数组
    For i = 0 To newSize
        Debug.Print arr(i)
    Next i
End Sub

Sub RemoveElementFromArray()
    Dim arr() As Variant
    Dim newArr() As Variant
    Dim i As Integer, j As Integer
    Dim removeIndex As Integer
    
    ' 初始化数组
    arr = Array(1, 2, 3, 4, 5)
    removeIndex = 2 ' 假设我们要删除索引为2的元素
    
    ' 创建新数组
    ReDim newArr(UBound(arr) - 1)
    
    ' 复制不需要删除的元素
    j = 0
    For i = 0 To UBound(arr)
        If i <> removeIndex Then
            newArr(j) = arr(i)
            j = j + 1
        End If
    Next i
    
    ' 将新数组赋值给原数组
    arr = newArr
    
    ' 输出新数组
    For i = 0 To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub

Sub RemoveElementFromDictionary()
    Dim dict As Object
    Dim key As Variant
    Dim removeKey As Variant
    
    ' 初始化字典
    Set dict = CreateObject("Scripting.Dictionary")
    dict.Add "a", 1
    dict.Add "b", 2
    dict.Add "c", 3
    dict.Add "d", 4
    dict.Add "e", 5
    
    ' 假设我们要删除键为"c"的元素
    removeKey = "c"
    
    ' 删除元素
    If dict.Exists(removeKey) Then
        dict.Remove removeKey
    End If
    
    ' 输出剩余元素
    For Each key In dict.Keys
        Debug.Print key, dict(key)
    Next key
End Sub