For循环复制和粘贴Excel VBA

Question

Function Iterate()
Dim i As Integer
For i = 1 To 10
Worksheets("Calculator").Calculate
Worksheets("Calculator").Range("AC6:AC16").Copy  Destination:=Sheets("Iterations").Range("A1:A10")
Worksheets("Calculator").Range("AT10:AT11").Copy Destination:=Sheets("Iterationas").Range("A11:A12")
                         Worksheets("Iterations").Paste

Next

End Function

我的目标是根据需要多次运行此循环，并且在每个循环之后，我希望 excel 获取 Range("cells") 并将它们复制到“Iterations”工作表中。

计算器上的数据在每个循环中都会刷新，因此会出现新的计算。出现新的计算后，我想将其粘贴到另一个旁边（我不知道该怎么做）。

现在，这给了我一个运行时错误 Subscript it out of range

有什么建议吗？

Answer 1

我尝试了以下方法：

Option Explicit

Public Sub Iterate()

    Dim i As Long

    For i = 1 To 10
        Worksheets(1).Calculate
        Worksheets(1).Range("AC6:AC16").Copy Destination:=Worksheets(2).Range("A1:A10")
        Worksheets(1).Range("AT10:AT11").Copy Destination:=Worksheets(2).Range("A11:A12")
    Next

End Sub

它有效，只需确保您重命名 Worksheets(1) 和 (2) 相关。通常，当您希望返回一个值时，请使用Function。对于工作表中的更改，请使用Sub。

通常，您希望在 cmets 中复制值并将它们放在相邻的列中。获取方法如下：

Option Explicit

Public Sub Iterate()

    Dim i As Long

    For i = 1 To 10
        With Worksheets(1)

        Worksheets(2).Calculate

        Worksheets(2).Range("AC6:AC16").Copy
        .Cells(1, i).PasteSpecial Paste:=xlPasteValues

        Worksheets(2).Range("AT10:AT11").Copy
        .Cells(1, i + 10).PasteSpecial Paste:=xlPasteValues

        Application.CutCopyMode = False
        End With
    Next

End Sub