这是我的代码:
Dim N As Single
N = ActiveCell.Offset(0, 0).Value
E = 1 - N
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=-SUM(R[E]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=-SUM(R[E]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=-SUM(R[E]C:R[-1]C)"
ActiveCell.Offset(1, 0).Range("A1").Select
我希望宏用户选择一个具有值的单元格(示例 5),因为它将是第 5 行值的插槽。我希望程序找到它之前的所有值的负总和(1、2、3 和 4)。