VBA/Excel/Access/Word/Data Type/Array Erase
Erasing Arrays
<source lang="vb">
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
</source>
Removing Data from an Array
<source lang="vb">
" 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
</source>