Могу ли я использовать переменную для ReDim массива?

Question

Я не совсем уверен, почему я получаю сообщение об ошибке

Ожидая динамического вар массива

с этим кодом:

Option Explicit 

Sub ArrayTest() 
    Dim i As Integer, BankList(0) As Variant, x As Integer 
    For i = 0 To UBound(ScreenArray) 
     If ScreenArray(i) Like "TR=SUB*" Then 
      Debug.Print ScreenArray(i) 
      ReDim Preserve BankList(x) '<<< ERROR LINE 
      BankList(x) = ScreenArray(i) 
      x = x + 1 'Raise the value for the next occurrence, if needed. 
     End If 
    Next 
End Sub 

В основном я пытающимся двигаться конкретными строки из одного массива в новый массив, если выполняются определенные критерии. Трудно определить, сколько строк будет в новом массиве, пока не будет запущен этот оператор For...Next.

Если вы не можете определить код, исходный массив - ScreenArray, а новый массив - BankList.

Answer 1

Чтобы создать динамический массив, не указывайте размер в первоначальной декларации.

Поэтому используйте BankList() As Variant вместо BankList(0) As Variant.