用于调用复制到下一页上的下一个单元格值的excel宏

当我运行宏时，我需要这样一个宏，它将单元格值从sheet1 A3复制并粘贴到sheet2 A3。一旦完成，我再次单击“下一步”按钮，然后复制A4值并粘贴到sheet2 A3单元格上。请尝试以下代码：

将此复制到您的模块

Dim i As Integer
Sub sample()

    If i = 0 Then
        Sheets("sheet1").Range("A3").Copy Sheets("Sheet2").Range("A3")
    Else
        Sheets("sheet1").Range("A4").Copy Sheets("Sheet2").Range("A3")
    End If
     i = i + 1
End Sub

---

您可以将迭代器放入单元格中，例如Sheet1 A1=3，然后使用该迭代器选择放置复制值的位置

Sub sample()
    'This is your iterator
    x = Range("A1")
    Value = Worksheets("Sheet1").Cells(x, 1)
    Worksheets("Sheet2").Range("A3") = Value
    Range("A1") = Range("A1") + 1
End Sub