Question

我是创建Macro的新手，所以我可以使用一些帮助我有两个表，每个表通过使用以下宏来计算一个特定单元格中的某个值：

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。

如果我再次进行计算，则会显示新值。需要通过按下相同的ADD按钮在单元格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

Answer 1

您可以使用Range().Value = SomeValue

设置单元格的值

例如，如果您在单元格H16中有公式：
Range("H16").FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"

并且您希望其价值显示在K10中，您可以这样做：
Range("K10").Value = Range("H16").Value

将固定单元格中的值插入新行并再次计算

1 个答案: