Remove element from array

[Glory]

Is there an easy way to eliminate an element from an array that also redimensions the array to exclude the empty element?

 

[shg]

You need to move the elements above down (in a loop), and then ReDim Preserve.

 

[Kenneth Hobson]

Redim Preserve only removes trailing element(s). Otherwise, you can iterate through the array to copy all but that element(s) to another array or copy down as shg said.

 

[Glory]

Is there a simple way to empty an entire array? Array() = Empty “Can’t assign to array”<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

[shg]

Erase myArray

Read about the Erase statement in Help

 

[Glory]

This is the code I have now, and it looks like it’s working good.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
<o>

<o:p>    For Each element In r()</o:p>
<o:p>        a = a + 1</o:p>
<o:p>        ReDim Preserve array2(1 To a)</o:p>
<o:p>        If Not IsEmpty(element) Then
            array2(a) = element
        End If</o:p>
<o:p>    Next</o:p>
<o:p>a = Empty</o:p>
<o:p>ReDim r(1 To UBound(array2))</o:p>
<o:p>    For Each element In r()</o:p>
<o:p>        a = a + 1
        r(a) = array2(a)</o:p>
<o:p>    Next</o:p>
<o:p>a = Empty
</o:p>

</o>
<o></o>
<o>T</o>hanks to both of you

 

[Kenneth Hobson]

You should check that it is working as you think it is. Your counter should go in the If() loop.

Here is my example.

Option Base 0

Sub Test_Trim1darray()
  Dim a() As Variant
  a = Array("Ken", "", "Hobson")
  MsgBox Join(a, vbLf)
  Trim1dArray a()
  MsgBox Join(a, vbLf)
  
  a = Array("Ken", "", "Hobson")
  MsgBox Join(a, vbLf)
  Trim1dArray a(), "Ken"
  MsgBox Join(a, vbLf)
End Sub

Sub Trim1dArray(ByRef anArray() As Variant, Optional aVal As Variant = Empty)
  Dim a() As Variant, element As Variant, iCount As Long
  iCount = -1
  ReDim a(UBound(anArray))
  For Each element In anArray
    If element <> aVal Then
      iCount = iCount + 1
      a(iCount) = element
    End If
  Next element
  ReDim Preserve a(iCount)
  anArray() = a()
End Sub