2014-07-22 31 views
1

我試圖創建一個二維動態數組,但在ReDiming bigArray時不斷收到錯誤「Expected Array」。有關爲什麼會發生這種情況的任任何幫助創建這個二維數組將不勝感激。2-D陣列的期望陣列錯誤

謝謝

Sub Button2_Click() 


Dim i As Integer, j As Integer 
Dim Lastrow As Long 
Sheets("3").Activate 
Lastrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 
Sheets("4").Activate 

Dim myArray As String 
**Dim bigArray As String 
ReDim bigArray(0 To 1, 0 To 1) As String** 
j = 0 


For i = 2 To Lastrow 
    If Not IsEmpty(Sheets("3").Cells(i, 1).Value) Then 
     myArray = Array(CStr(Sheets("3").Cells(i, 10).Value), CStr(Sheets("3").Cells(i, 20).Value)) 
     If UBound(myArr) > 1 Then 
      ReDim Preserve bigArray(LBound(bigArray) To UBound(bigArray) + 1, 0 To 1) As String 
     End If 
     bigArray(UBound(bigArray), 0) = myArray(0) 
     bigAray(UBound(bigArray), 1) = myArray(1) 
    End If 
Next i 

End Sub 
+1

你缺少一些括號:'昏暗bigArray()作爲String' – Rory

回答