VBA 中的公式

Question

你能帮我用vba公式吗？

ColumnLetter = Split(ActiveWorkbook.ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Cells.Address(1, 0), "$")(0)

Row = ActiveWorkbook.ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row - 1

For i = 6 To Row

    var = ActiveSheet.Range("H" & i).value
    var2 = ActiveSheet.Range(ColumnLetter & i).value
    Range(ColumnLetter & i).Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=(RC[" & var & "] - RC[" & var2 & "])"
     
Next i

我想减去两个值。 ColumntLetter - 最后一列 行 - 最后一行 我对最后一个有问题 - "ActiveCell.FormulaR1C1 = "=(RC[" & var & "] - RC[" & var2 & "])"