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