Excel複製動態單元值

Question

我有一個非常簡單的VBA函數來複制一個單元格的值（這是一個範圍的總和）到一個空單元格。程序循環50次，L53單元包含每次更改的範圍總和，因爲NORMINV（RAND（），0,1）每個循環生成不同的值。

Sub Run_Calc_Btn_Click() 
For i = 1 To 50 
Range("O" & i + 1).Value = Range("L53") 
Next i 
End Sub 

但是，複製的值不等於原始單元格值，我無法弄清楚這個值來自哪裏。

Answer 1

我試着運行你的函數，我認爲問題是在最後一個循環後值再次改變。

如果你作爲快速調試，在for循環中添加以下內容作爲第一行：MsgBox "Value of L53: " & Range("L53").Value，你會看到列O中的每個單元格確實匹配單元格L53中的總和。

在消息框中單擊「確定」之前，可以驗證單元格L53中的值與消息框中顯示的值相同，並且在單擊「確定」後，O列中的下一個單元格將具有剛剛顯示的值在消息框中。