VBA Phantom Empty Array Value

Question

I am looping through some data (only 8 values) in an Excel range from VBA, but I seem to be getting a 'phantom' empty array value in the middle.

Here is how I build the array. The range that it loops through results in 2 values being found, i.e. 2 values = 'rad'.

' arRoPtsXY is a 2D array
counter2 = UBound(arRoPtsXY, 2)
Dim arSecPtCt()
loopCtr = 0

For i = 1 To counter2
  rad = Sqr((secCX - arRoPtsXY(1, i)) ^ 2 + (secCY - arRoPtsXY(2, i)) ^ 2)
  If rad = secR Then
     ReDim Preserve arSecPtCt(i)
     arSecPtCt(loopCtr) = i
     loopCtr = loopCtr + 1
  End If
Next i

But when I perform this:

For a = LBound(arSecPtCt) To UBound(arSecPtCt)
  Debug.Print arSecPtCt(a)
Next a

I get this output:

1 
3 


'end

Note, above, there are 2 blank spaces being output (after 3, I added 'end to show the spaces here), like the array 'space' exists, but it is empty.

If I do a debug.print UBound(arSecPtCt) I get '3', meaning 0,1,2,3 occupied array 'spaces'.

I just want my array to be:

1
3

As it is only the 1st and 3rd value that = 'rad'.

If I debug.print i during the if loop, it only outputs the 1 and 3, no spaces, so the loop seems to work, but I am just getting these extra blanks.

Hope someone can put me out my misery.

Many thanks in advance.

Jon

Ron Rosenfeld · Accepted Answer · 2014-06-11 17:15:21Z

2

Try changing:

ReDim Preserve arSecPtCt(i)

to

ReDim Preserve arSecPtCt(loopCtr)

answered Jun 11, 2014 at 17:15

Ron Rosenfeld

62k7 gold badges35 silver badges71 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

j0nr Over a year ago

Sigh...sometimes you just can't see the wood for trees :) Thought it would be something incredibly simple that I was overlooking. Thanks so much @RonRosenfeld

Collectives™ on Stack Overflow

VBA Phantom Empty Array Value

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related