Vba 将固定单元格中的值插入新行，然后重新计算

我不熟悉创建宏，所以我需要一些帮助。 我有两个表，每个表使用以下宏计算一个特定单元格中的特定值：

Macro12 Macro
' CALCULATE
    Range("H16").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
    Range("H26").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
    Range("H27").Select
End Sub

现在，我想通过按下ADD按钮，得到K10单元格中H16单元格和L10单元格中H26单元格的值

如果我再次进行计算，将出现新值。需要通过按下单元格K11和L11中的相同添加按钮来添加这些元素。所以旧的需要保存

如果你能帮忙，我将不胜感激

从评论中添加

不过我做了一些工作：

  Range("H16").Select
  Selection.Copy Range("K10").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Application.CutCopyMode = False
  Range("H26").Select Selection.Copy
  Range("L10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks :=False, Transpose:=False
End Sub

---

可以使用Range.value=SomeValue设置单元格的值

例如，如果在单元格H16中有公式： 范围16.公式1c1==SUMR[-5]C:R[-1]C

如果希望其值显示在K10中，可以执行以下操作：

---

RangeK10.Value=RangeH16.Value

查看顶行中的帮助中心按钮，以获取有关询问适合此站点的问题的指导。要求一个宏计算两个值并将它们放在表的第一列和第二列中是一个糟糕的问题，因为您没有演示努力，而且太模糊了；RangeH16.选择Selection.复制RangeK10.选择Selection.PasteSpecial Paste:=xlPasteValues，操作：=xlNone，SkipBlanks：=False，转置：=False Application.CutCopyMode=False Range26.选择Selection.复制Range10.选择Selection.PasteSpecial Paste:=xlPasteValues，操作：=xlNone，SkipBlanks:=False，Transpose:=False End SubI已将您的评论复制到问题中，因此它是可读的。我同意删除选择的成熟建议。我要补充的唯一一点是，如果源范围更改，H16将重新计算，但K10不会，因为您正在复制当前值。如果您想更改K10，可以尝试RangeK10.Value==H16。我衷心感谢您的帮助！第二次按下“添加”按钮时，是否可以让宏将这些值插入下一行？例如，通过添加条件？我不知道工作簿的布局是什么，所以很难提供帮助。如果你发布另一个关于excel工作表更多信息的问题，我可能会有所帮助。