Con esta rutina conseguimos vaciar de items vacios un array y asi evitar que consuman recursos de forma innecesaria.
Sub Limpieza(arreglo) indice=Ubound(arreglo) Dim limpiar() Redim limpiar(indice) v=0 For each item in arreglo If not isempty(item) and not isnull(item) then limpiar(v)=item v=v+1 End if Next Redim preserve limpiar(v) arreglo=limpiar End sub
