Question

我想根据vba中的其他公式值重新评估（复制和粘贴）公式值

以下是我的例子：

D2包含一个值为1,2和3的下拉列表。

如果D2 = 2（基本情况）则变量1 = 10。对于该值，G2中给出的结果等于100

如果D2 = 1（低）则变量1 = 5。对于该值，G2中给出的结果等于80

如果D2 = 3（高）则变量1 = 5。对于该值，G2中给出的结果等于120

请注意，G2包含我的预算结果作为公式。这来自另一张表

我想在单元格F2和H2中重新评估（复制和粘贴）这些值。我运行以下代码，但我采用相同的值100，因为这是在单元格G2

Answer 1

希望根据vba

中的其他公式值重新评估（复制和粘贴）公式值

以下是我的例子：

D2包含一个值为1,2和3的下拉列表。

如果D2 = 2（基本情况）则变量1 = 10。对于该值，G2中给出的结果等于100

如果D2 = 1（低）则变量1 = 5。对于该值，G2中给出的结果等于80

如果D2 = 3（高）则变量1 = 5。对于该值，G2中给出的结果等于120

请注意，G2包含我的预算结果作为公式。这来自另一张表

我想在单元格F2和H2中重新评估（复制和粘贴）这些值。我运行以下代码，但我采用相同的值100，因为这是在单元格G2

这是我的代码

范围（ “D2”）。选择

ActiveCell.FormulaR1C1 = 2

Range("G2").Select

Selection.Copy

Range("F2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

范围（ “D2”）。选择

ActiveCell.FormulaR1C1 = 3

Range("G2").Select

Selection.Copy

Range("H2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

范围（ “D2”）。选择

ActiveCell.FormulaR1C1 = 1

End Sub

使用条件复制和粘贴值vba

1 个答案: