Not sure if you are dealing with a lot of data and or columns or not, but at first blush, building a macro (that works) might take a lot longer time than is necessary.
You might try adding this to the bottom of each column (drag horizontally to all applicable columns)
If you have data say in B2 to B14, you might put in B15 the following =countif(B2:B14, "=0")
Then manually delete the columns that have a count >1.
Now if you go down the macro road, you would actually have to get into the VBA side, and it gets complicated.
|