Initializing All Array Elements to 0

Om Avataar · Mar 3rd 2005

There must be a faster way than that shown below, right? Something involving:

'For Each.....rngTemp....'

- saw it somewhere in passing; don't quite remember. Please advise... Thanks.

Code

Dim V() as Double
Dim i As Long


ReDim V(10, 1)
        
For i = 1 To 10
    V(i) = 0
Next i

**Andy Pope** · Mar 3rd 2005

Re: Initializing All Array Elements to 0

Hi Om Avataar,

For Each applies to object variables.

You could just ReDim the variable again which will reset the values to zero.

Code

Sub X()
Dim V() As Double 
Dim i As Long 
 
ReDim V(10) as Double
' populate with values 
For i = 1 To 10 
    V(i) = 99
Next i


' this is reset values to zero
ReDim V(10) as Double 
 
For i = 1 To 10 
    debug.print V(i)  
Next i


End Sub

Display More

Aaron Blood · Mar 3rd 2005

Re: Initializing All Array Elements to 0

No need for the For Each... the redim alone sets all values of the array to zero.

Code

Sub test()
    Dim V() As Double
    ReDim V(10, 1)
End Sub

Initializing All Array Elements to 0

Participate now!

Share