VBA代码如下：
sub xxx() dim i,j j=1 for i=1 to sheet1.usedrange.rows.count if i=1 ot sheet1.cells(i,"E")=0 then sheet1.rows(1).copy sheet2.rows(j) j=j+1 end if next iend sub
如果你想条件复制，那么是否E列就不需要做了？
