Question

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

Answer 1

尝试以下代码：

将此复制到您的模块。

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

Answer 2

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

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

2 个答案: