I have looked at just about every post I could find on this topic, but I can't seem to get anything to work.
I want to be able to use a 2D Array for my own sake, but I think my best bet is to just make one huge 1D Array.
Sub GatherData()
Dim width As Integer: width = 22
Dim data() As Variant
ReDim roadway(width) As Variant
Dim str As Variant
Dim arrayWidth As Integer
With ThisWorkbook.Worksheets("List of Roads").Range("A1")
For r = 0 To 400 '400 is an arbitrary number
If Not IsEmpty(.Offset(r, 0).value) Then
If IsStreet(UCase(.Offset(r, 0).value), UCase(.Offset(r, 1).value)) Then
For c = 0 To width - 1
roadway(c) = .Offset(r, c).value
Next c
End If
'add roadway array to the end of data()
End If
Next r
End With
End Sub
If I had my way this 2D-Array would have an unknown number of rows with each row containing 22 columns. I just can't wrap my head around how I would dynamically add arrays together.