[英]expected array error for 2-D array
我正在尝试创建一个二维动态数组,但是在重新定义bigArray时,总是出现错误“ Expected Array”。 为什么会这样? 此外,任何有关创建此2D阵列的帮助将不胜感激。
谢谢
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.