VBA/Excel/Access/Word/Data Type/Array Erase

Erasing Arrays

 
Sub arrayTest4()
     Dim i As Integer
     Dim intMyScores() As Integer
     Dim intArraySize As Integer
    
     intArraySize = 10
    
     ReDim intMyScores(1 To intArraySize)
    
     For i = 1 To intArraySize
        intMyScores(i) = i
     Next
    
     For i = 1 To intArraySize
        Debug.Print "For array element " & i & " the number is " & intMyScores(i)
     Next
     Erase intMyScores
End Sub

Removing Data from an Array

 
" start indexing array elements at 1
"Option Base 1
Sub FunCities()
    Dim cities(1 To 5) As String
    cities(1) = "Las Vegas"
    cities(2) = "Orlando"
    cities(3) = "Atlantic City"
    cities(4) = "New York"
    cities(5) = "San Francisco"
    MsgBox cities(1) & Chr(13) & cities(2) & Chr(13) _
        & cities(3) & Chr(13) & cities(4) & Chr(13) _
        & cities(5)
    Erase cities
    MsgBox cities(1) & Chr(13) & cities(2) & Chr(13) _
        & cities(3) & Chr(13) & cities(4) & Chr(13) _
        & cities(5)
End Sub