Improve code to delete cells with a value of 0

**richinlaf31** · 09-18-2008, 04:37 PM

I have a sheet with 2884 rows.. I am currently using the following macro (with changes for each column) to search columns AN - BG and delete cells with a value of 0 and move the columns that do not = 0 up..

for example:

0
0
0
0
5
0
0
3
0
0
0
1

would be

5
3
1

I can not delete the entire row, because the next column may not have a 0 value in the same row..

Obviously, the process I have below takes FOREVER. Is there a faster way to do this? Again, it is Column AN through Column BG and rows 6-2884 . I am going through it backwards so that I do not miss any 0's.

Please Login or Register  to view this content.

**Ikaabod** · 09-18-2008, 05:15 PM

Try removing screen updating at the beginning of your code.

Please Login or Register  to view this content.

**shg** · 09-18-2008, 05:44 PM

Maybe

Please Login or Register  to view this content.

**richinlaf31** · 09-23-2008, 11:51 AM

I appreciate the help, however both of those still end up taking over an hour to process. Would it be faster to somehow go down the row and only copy the cells the do not equal 0 to a different row?