excel - 用于调用复制到下一张工作表上的下一个单元格值的 excel 宏

Question

我想要这样一个宏，当我运行一个宏时，它会从 sheet1 A3 复制单元格值并将其粘贴到 sheet2 A3 中，一旦完成，当我再次单击下一步按钮然后复制 A4 值并将其粘贴到 sheet2 A3 单元格上

Answer 1

您可以将迭代器放入单元格中，例如 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

Answer 2

试试下面的代码：

将此复制到您的模块。

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