Using a Dynamic Array : Dynamic Array « Date Functions « VBA / Excel / Access / Word

Using a Dynamic Array

 
Sub DynArray()
    Dim counter As Integer
    Dim myArray() As Integer
    ReDim myArray(5)
    Dim myValues As String

    For counter = 1 To 5
        myArray(counter) = counter + 1
        myValues = myValues & myArray(counter) & Chr(13)
    Next

    ReDim Preserve myArray(10)

    For counter = 6 To 10
        myArray(counter) = counter * 8
        myValues = myValues & myArray(counter) & Chr(13)
    Next counter

    Debug.Print myValues
    For counter = 1 To 10
        Debug.Print myArray(counter)
    Next counter
End Sub

Related examples in the same category

1.	Dynamic Arrays
2.	Declaring and Working with Dynamic Arrays
3.	Use ReDim to create dynamic array
4.	There's a potential problem when you try to resize the array:
5.	A destroying the old values by using the Preserve keyword
6.	Use the Preserve keyword to keep the values
7.	Transpose() sub procedure is using a dynamic array that is re-dimensioned with two dimensions.