问题求解：
1、B列有公式
2、如何提取一列中有公式并且结果有“0”不连续的数据存放成为连续的一列。

谢谢！
========================
二楼的答案最好。不过问题又出来了：不能设置小数位数，是计算结果的全部值，如何才能保留小数位数为1位呢？
烦请给予解答.
再次感谢!
========================
八楼是符合要求的结果。重新上传了有答案的附件

[ 本帖最后由 hzlyc 于 2009-4-17 22:35 编辑 ]

j2=INDEX(A:A,SMALL(IF($B$2:$B$15&""<>"0",ROW($B$2:$B$15),4^8),ROW(1:1)))&""
数组公式，右拉下拉

=INDEX(B:B,SMALL(IF(($B$2:$B$15)>0,ROW($B$2:$B$15),65536),ROW(9:9)))&""

或者把B列公式改成
=G2&""

J2=INDEX(D$2:D$15,SMALL(IF($E$2:$E$15<>"0",ROW($1:$14)),ROW(1:1)))数组公式

谢谢您！
得到了正确结果。

把B列公式改成 =G2&""
能得到正确的结果。
公式输入到E列，出不了结果。后经查找是因为公式中的"B:B"出错，应为"A:A"。也就是：=INDEX(A:A,SMALL(IF(($B$2:$B$15)>0,ROW($B$2:$B$15),65536),ROW(1:1)))&""
谢谢您！

[ 本帖最后由 hzlyc 于 2009-4-17 22:09 编辑 ]

谢谢！
公式输入后，没有数据的单元格会出现错误“#NUM!”。而二楼的不会出现。

j2=T(TEXT(INDEX(A:A,SMALL(IF($B$2:$B$15&""<>"0",ROW($B$2:$B$15),4^8),ROW(1:1))),"[<>0]0.0;"))

谢谢lzzgzby老师。
您很热心，因为您在二楼回答后，又出现了保留小数位数问题， 我给您发了站内短消息，您又给我及时做了解答。

再次一并感谢各位给解答问题的各位老师。