我可以使用变量重新排列数组吗？

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。