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