VBA 将单个单元格复制并粘贴到另一个工作表中定义的次数

Question

我有一些 VBA 代码可以在单击按钮时激活。它将一个作品sheet中一系列单元格的值复制并粘贴到另一个作品sheet中定义的位置。

不过我还想从原来的sheet中的另一个地方复制一个单元格的数据，并将其复制到定义的编号中。其他工作中的细胞sheet。我在下面的代码中将复制功能添加到复制粘贴值功能的底部。但是我正在努力解决这个问题，因为我的代码不起作用。请问我做错了什么，我该如何解决？

Private Sub CommandButton1_Click()
Dim controlRng, nRng As Range
Set controlRng = Range("AD12")  ' This the range of cells which I have defined to be my dropdown cells.
lastrow = Sheets("Planning").Range("A" & Rows.Count).End(xlUp).Row + 1

If controlRng = "Apr-20" Then
    Range("AH10:AM30").Copy
    Sheets("Planning").Range("D" & lastrow).PasteSpecial xlPasteValues ' Copy and paste values to next available rows in destination sheet
    Range("AB12").Copy
    Sheets("Planning").Range("A" & lastrow).Resize(14*("A2").Value

Answer 1

Private Sub CommandButton1_Click()
    Dim controlRng, nRng As Range
    Set controlRng = Range("AD12")

    lastrow = Sheets("Planning").Range("A" & Rows.Count).End(xlUp).Row + 1

    If controlRng = "Apr-20" Then
        Range("AH10:AM30").Copy
        Sheets("Planning").Range("D" & lastrow).PasteSpecial xlPasteValues
        Sheets("Planning").Range("A2").Resize(14, 1) = Range("AB12")
    End If
End Sub

VBA 将单个单元格复制并粘贴到另一个工作表中定义的次数

VBA Copy and paste a single cell a defined number of times in another worksheet

excel

vba

excel-2016