arrays - 编辑数组vba的维度

Question

我有一个这样的数组

dim arr(1 to 5) as string

arr(1)="a"
arr(3)="b"
arr(5) = "c"

（arr(2),arr(4) 为空）。

如何重新调整此 arr(1to5) 以排除空值并保存值“a”、“b”、“c”（我想要类似的输出arr(1to3), arr(1)="a", arr(2)="b", arr(3)="c"）？一般来说，我不知道其中有多少是空的，所以我需要一些通用代码（不适用于这个特定示例）。

我正在考虑使用新的临时数组来保存所有非空值，然后重新设置 arr(1to5)。

也许这是一种更好（快速）的方法？

I wrote sth similar:
Sub test()
Dim myArray() As String
Dim i As Long
Dim y As Long


ReDim Preserve myArray(3)
myArray(1) = "a"
myArray(3) = "c"

Dim myArray2() As String
y = 1
For i = LBound(myArray) To UBound(myArray)

If myArray(i) <> "" Then

ReDim Preserve myArray2(y)
myArray2(y) = myArray(i)
y = y + 1

End If
Next i

ReDim myArray(UBound(myArray2))
myArray = myArray2

End Sub

但是我想避免创建新数组。

标签： arraysvbadimensions

Answer 1

创建一个相同大小的新数组。循环第一个数组并在不为空时将值插入新数组中，以跟踪新数组中具有值的最后一个点，然后将新数组保留为仅具有值的大小。

Sub kjlkj()
    Dim arr(1 To 5) As String
    
    arr(1) = "a"
    arr(3) = "b"
    arr(5) = "c"
    
    Dim newArr() As String
    ReDim newArr(1 To UBound(arr))
    
    Dim j As Long
    j = LBound(newArr)
    
    Dim i As Long
    For i = LBound(arr) To UBound(arr)
        If arr(i) <> "" Then
            newArr(j) = arr(i)
            j = j + 1
        End If
    Next i
    
    ReDim Preserve newArr(LBound(newArr) To j - 1)

    'do what you want with the new array.
    
    
End Sub