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列中的下一个单元格将具有刚才显示的值消息框。