Динамическое заполнение массива VBA

Question

В приведенном ниже примере синтаксиса, как я могу добавить каждый элемент в новый массив вместо печати? Я не уверен, как это сделать, например, я не знаю размер массива, так как это может быть 0 (нет необходимости когда-либо инициализировать массив), или это может быть Ubound массива, который он итерирует.

Option Compare Database 
Option Explicit 

Function TestIt() 
Dim animalarray As Variant, xyz As Variant 
animalarray = Array("Cat", "Cow", "Camel", "Dire Wolf", "Dog", "Coyote", "Rabbit", "Road runner", "Cougar") 

For Each xyz In animalarray 
    If Left(CStr(xyz), 1) = "C" Then 
    Debug.Print CStr(xyz) 
    End If 
Next 

End Function 

Answer 1

Вы можете использовать Redim Preserve:

Sub TestIt() 
    Dim animalArray(): animalArray = Array("Cat", "Cow", "Camel", "Dire Wolf", "Dog", "Coyote", "Rabbit", "Road runner", "Cougar") 
    Dim anotherArray(): anotherArray = Array("Lion", "Tiger", "Leopard") 

    Dim xyz As Variant 
    For Each xyz In animalArray 
     If Left(CStr(xyz), 1) = "C" Then 
     ReDim Preserve anotherArray(UBound(anotherArray) + 1) 
     anotherArray(UBound(anotherArray)) = xyz 
     End If 
    Next 

    For Each xyz In anotherArray 
     Debug.Print xyz 
    Next 
End Sub 

Answer 2

Это даже проще:

Function TestIt() 

    Dim animalarray As Variant 
    Dim newarray As Variant 
    Dim xyz As Variant 

    animalarray = Array("Cat", "Cow", "Camel", "Dire Wolf", "Dog", "Coyote", "Rabbit", "Road runner", "Cougar") 
    newarray = animalarray 

    For Each xyz In newarray 
     If Left(CStr(xyz), 1) = "C" Then 
      Debug.Print CStr(xyz) 
     End If 
    Next 

End Function