Excel VBA按鈕（將單元格復制到另一張工作表中的新行）

Question

我需要從表單表單上的表格中復制一些單元格，然后將其粘貼到活動表單上的新行中。

分解：

單擊按鈕時：-單元格“ B2，B3，B4，B5，B6，A10，A16，A21，A24，E10，E17，E20，E23，E26，I10，I12，I14，I16，M10，M12， M14，M16，M19，M22”將在活動工作表（表格）上選擇並復制。 -復制的單元格將粘貼到另一張紙上（活動），並粘貼到新行上（類似於A +1）

這是我到目前為止的內容：

Private Sub CommandButton1_Click()
Sheets("Form").Select
Range("B2,B3,B4,B5,B6,A10,A16,A21,A24,E10,E17,E20,E23,E26,I10,I12,I14,I16,M10,M12,M14,M16,M19,M22").Select
Selection.Copy
Sheets("Activities").Select
If Sheets("Activities").Range("A9") = "" Then
    Sheets("Activities").Range("A9").PasteSpecial Paste:=xlPasteValues
Else
    Sheets("Activities").Range("A10").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues
End If

結束子

但是它不能正常工作，而且我還沒有弄清A + 1。

有什么幫助嗎？

謝謝

Answer 1

首先，如果沒有必要，則應避免使用Select語句（它會不必要地引發事件，等等）。

我的方法是：

Dim rng As Range
Set rng = Sheets("Novo Pedido").Range("B2,B3,B4,B5,B6,A10,A16,A21,A24,E10,E17,E20,E23,E26,I10,I12,I14,I16,M10,M12,M14,M16,M19,M22")

For Each cell In rng
    'here you copy to another sheet, one row lower
    Sheets("Geral").Cells(cell.Row + 1, cell.Column).Value = cell.Value
Next cell