如何獲取單元格的公式值

Question

我一直在瘋狂搜索，我敢肯定它比我想象的要簡單得多，請賜教！

我設置的公式在這樣一個循環的一些細胞：

ActiveSheet.Range("AM" & i).Formula = "=ROUND(Y" & i & "/(M" & i & "+U" & i & "/12))"

我想將此公式的結果復制到另一個單元格中。 我嘗試了這個：

ActiveSheet.Range("Y" & i).Value = ActiveSheet.Range("AM" & i).Value

但這不起作用。 我一直想知道如何獲取此公式的結果（值）而不復制整個公式。

有任何想法或答案嗎？ 非常感謝。

Answer 1

您可以將結果復制為值。 假設我有單元格A1和A2，並且我想獲取A3中的MAX值，然后將結果復制到A4：

    A
1   10
2   20
3   20 <- as formula '=MAX(A1:A2)'
4   20 <- as value not formula

Sub AddMax()
    Range("A3").Formula = "=MAX(A1:A2)"
End Sub

Sub CopyResult()
    Range("A3").Copy
    Range("A4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub