There may be an easier/more formula-oriented way, but this will work and won't take long at all:

Copy all of column A to column B.
Use find/replace to delete all the 0s.
Use the info in this link to remove all blank cells: http://www.theexceladdict.com/_t/t031008.htm