如何删除数组的最后一个元素

Question

我有一个数组ARR(9),其中第9个是空内容，如何删除第9个空内容。
本人想通过Redim来做，但不知道怎么做，是否有哪位老师知道？

Answer 1

你删除他干什么。
先定一个一个数组ARR_1(8)，把ARR的值一个一个的赋给它。
Redim ARR(8)
把ARR_1(8)的值一个个的再赋给他

Answer 2

可以这样用，原来数组声明为动态数组：
Option ExplicitDim ARR() As LongPrivate Sub Command1_Click()
        Dim i As Long
        ReDim ARR(9)
        For i = 0 To 8
            ARR(i) = i
        Next
        ReDim Preserve ARR(UBound(ARR) - 1)
        
        For i = 0 To UBound(ARR) - 1
            Debug.Print ARR(i),
        Next
End Sub

Answer 3

dim ARR()
redim ARR(9)
ARR(0)=1
ARR(1)=2
.
.
redim preserve ARR(8)

Answer 4

如果为空的元素的确在最后位置，则缩小数组即可。
Redim Preserve Arr(8)。
如果不是，则需要通过循环先复制，然后再缩小。

Answer 5

Ding ..........如果真的要‘删除’，只能用动态数组。