如何在vba中给数组增加元素或者减少元素?

在使用数组的过程中,有时候会需要给数组增加或者减少元素的情况。

比如定义了一个固定元素数组arr(2),现在想要在数组的头部增加两个元素,使得新的两个元素成为新数组的头两个元素,可以使用如下的代码:

Sub QQ1722187970()
    '原来的数组
    Dim arr(2) As Byte
    arr(0) = 1
    arr(1) = 2
    arr(2) = 3
    Dim nArr() As Byte
    '增加元素后的数组
    ReDim nArr(UBound(arr) + 2)
    For i = 2 To UBound(nArr)
      nArr(i) = arr(i - 2)
    Next i
End Sub

比如定义了一个固定元素数组arr(2),现在想要在数组的尾部减少两个元素,可以使用如下的代码:

Sub QQ1722187970()
    '原来的数组
    Dim arr(2) As Byte
    arr(0) = 1
    arr(1) = 2
    arr(2) = 3
    Dim nArr() As Byte
    '减少元素后的数组
    ReDim nArr(UBound(arr) - 2)
    For i = 0 To UBound(nArr)
      nArr(i) = arr(i)
    Next i
End Sub

 

       

发表评论