主题：紧急求助 Excel VBA - 在线等 -- 燃起火烧云

有没有VBA的大拿啊，能不能帮我写一个code??

要求是这样：

excel 文件中有两列数据，A列是早上9点半到下午四点的每一分钟的时间，B列是某公司对应每一分钟的股票价格。B列中不少价格为0，我要做的是在B列中用下一个非零价格去替掉那些为零的价格。比如，该公司10:10,10:11,10:12时刻价格均为零，但是10:13时价格为$2.00，那我就将10:10,10:11,10:12的价格全部变为$2.00。

不知道我有没有说清楚，请懂VBA的大虾帮小弟写个code吧！

急等，多谢，多谢！

两边儿都贴了，急啊！

如果最后10分钟都为0怎么办呢？

如果真是这样，可以忽略不管。

Sub replacezeroprice()

Dim realprice

For Counter = 420 To 1 Step -1

Set curCell = Worksheets("Sheet1").Cells(Counter, 2)

If curCell.Value > 0 Then

realprice = curCell.Value

Else

curCell.Value = realprice

End If

Next Counter

End Sub

花谢！

总纪录不要超过420条(9:30-16:30 420分钟) 而且默认没有表头，如果有表头自己再改一下循环的起始和结束变量

code没问题，再花谢！

刚才我也逼着写了段代码，好像也行，都是从后倒着往前推：

Sub test()

For i = 400 To 2 Step -1

If Cells(i, 2) = 0 Then

Cells(i, 2).Offset(1, 0).Copy

Cells(i, 2).Select

ActiveSheet.Paste

End If

Next i

End Sub

这段code只是一个一个往前推，最笨的办法，还是兄台的code好。再花谢！

你是怎么在不到一小时的时间内对同一个帖子发两朵花的？

惭愧，昨天发了帖子才发现不能在短时间里送两朵花，所以打算回头补上。

第二朵花不知是那位慷慨的朋友送给你的。

CHELA兄是高手

正好给兄弟圆谎了

不算啥高手了，VB在真正高手眼里都是玩具来的。