Conventional wisdom suggests that to delete an array element, you must move up all the subsequent elements to close the “gap” left by the deleted item. However, if the sequence of the elements isn’t significant (as in an unsorted array), this algorithm quickly deletes an item:
' Element to deleteiDelete = 5' Number of elements before deletionnElements = UBound(Array)' Replace iDelete with last item in arrayArray(iDelete) = Array(nElements)' Use ReDim Preserve to shrink array by oneReDim Preserve Array(LBound(Array) _ To nElements - 1)