Sub a()
For i = 2 To Range("H65536").End(xlUp).Row
If Range("J" & i - 1).Value = "起始值" Then
S = i & "C13+R" & i & "C10"
End If
Range("I" & i).FormulaR1C1 = "=RC[-1]*1000*R" & S
Next
End Sub作者: sznt 时间: 2009-3-30 09:16
版主的思路相当清晰，怪我叙述不清，附件已重新上传，公式笨方法敲上去的，望版主再施援手，以这个思路重新解答，谢谢，期盼中。作者: liwen 时间: 2009-3-30 11:16
以这个思路根本上就不用变，你只要将那个i-1改为i 即可，估计你并没有试图去了解那段代码在做什么。
代码最基本的赋值语句是由录制宏代码转换而来的。
你通过录制宏在一个单元格输入公式可得到如下语句：
Sub Macro1()
Range("I3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*1000*R2C13+R2C10"
End Sub作者: sznt 时间: 2009-3-30 15:10
多谢指教，谢谢