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

Question

我有一些 VBA 代码，单击按钮即可激活。 它将值从一个工作表中的一系列单元格复制并粘贴到另一个工作表中的定义位置。

但是，我还想从原始工作表中的另一个位置复制单个数据单元格并将其复制到定义的编号中。 该其他工作表中的单元格。 我已将副本 function 添加到以下代码中的复制粘贴值 function 的底部。 但是我正在为此苦苦挣扎，因为我的代码不起作用。 请问我做错了什么，我该如何解决？

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