减掉固定单元格数值问题，求助

sznt

附件及图片已重新上传

liwen

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

版主的思路相当清晰，怪我叙述不清，附件已重新上传，公式笨方法敲上去的，望版主再施援手，以这个思路重新解答，谢谢，期盼中。

liwen

以这个思路根本上就不用变，你只要将那个i-1改为i 即可，估计你并没有试图去了解那段代码在做什么。

代码最基本的赋值语句是由录制宏代码转换而来的。
你通过录制宏在一个单元格输入公式可得到如下语句：
Sub Macro1()
  Range("I3").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*1000*R2C13+R2C10"
End Sub

sznt

多谢指教，谢谢