0

这是我的情况,我有很多工作表都以相同的顺序显示相同的列,并且它们中有不同的数据,我试图编写一个宏来在成本旁边插入一列并创建一个运行总和或增量总和,此列稍后将被复制到新工作表中。经过一次尝试,我设法接近了我的目标,问题是我的宏一遍又一遍地进行相同的计算,而没有对成本列求和。如果您查看我在下面发布的代码,它会变得更清楚。解决问题的所有帮助将不胜感激。

Sub IncCost()

    Dim r As Range
    Set r = ActiveSheet.Range("A1").CurrentRegion
    Columns("H:H").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("H1").FormulaR1C1 = "Incremental cost"
    Range("H2").FormulaR1C1 = Cells(2, 7)
    Range("H3").FormulaR1C1 = "=" & Cells(3, 7) & "+" & Cells(2, 8)
    Range("H3").AutoFill Destination:=Range("H3:H" & r.Rows.Count)

End Sub
4

1 回答 1

0

也许:

Range("h3:h" & r.rows.count).formular1c1 = "=RC[-1]+R[-1]C"
于 2013-06-04T22:03:26.790 回答