如何将一列动态数据（作为值）复制并粘贴到 VBA 中的另一列？

Question

我在 F15:F1649 中有公式，当自动计算打开时，每次单击鼠标都会刷新值（例如，在 F15:F1649 的每个单元格中都有一个 RAND() function）。 我正在尝试运行蒙特卡罗模拟，复制 F15:F1649 中的动态数据，并将其作为值粘贴到 G15:G1649，然后再次复制并将刷新的数据粘贴到 H15:H1649，依此类推，直到完成 1000 次试验。

我自己录制了一个宏，但是代码很草率。 请参阅下面的代码示例行：

Sub Monte_Carlo_Sim()
'
' Monte_Carlo_Sim Macro
'

'
    Range("F15").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.End(xlUp).Select
    Range("G15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I15").Select

Answer 1

您已经使用宏记录器生成了大部分代码。 如果您对编程有基本的了解，您可以对其进行一些小的更改并获得您想要的结果。

您的代码中的问题是您正在手动选择需要粘贴复制数据的位置。 而不是这样做，您需要让代码识别最后一个空列以粘贴值，然后将其循环 1000 次，如下所示：

For i = 1 To 5
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.End(xlToRight).Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next i

以下代码： Selection.End(xlToRight).Offset(0, 1).Select标识最后一个未填充的列

注意：在上面的 For 循环中，您将值从 5 更改为所需的数字，以多次循环代码。 但是先用 5 测试一下，看看它是否按预期工作。