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
你缺少一些括號:'昏暗bigArray()作爲String' – Rory