主题：紧急求助 Excel VBA - 在线等 -- 燃起火烧云
共:💬14 🌺7 新:
复 一般不会
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
- 相关回复 上下关系8
🙂紧急求助 Excel VBA - 在线等 燃起火烧云 字421 2006-11-29 13:26:52
🙂好像定义有问题 chela 字29 2006-11-29 14:06:28
🙂一般不会 燃起火烧云 字28 2006-11-29 14:08:40
🙂那你试试看这段代码吧
🙂成功了，没问题！再花！ 燃起火烧云 字330 2006-11-29 14:55:47
🙂突然想起来一个问题 chela 字58 2006-11-30 06:38:53
🙂是这样。。。 2 燃起火烧云 字112 2006-11-30 10:00:30
🙂呵呵,昨天偶看了以后顺手砸的 1 ☆☆☆ 字148 2006-11-30 10:25:33