Excel VBA按钮（将单元格复制到其他工作表中的新行）

我需要从表单上的表单复制一些单元格，然后将它们粘贴到表单上的新行中

细分：

单击按钮时： -单元格“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

有什么帮助吗

---

谢谢

首先，如果不必要，您应该避免使用

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

---

哇，这几乎做到了最简单的技巧！谢谢！唯一的缺点是：它将新行中的每个单元格放在同一列上。我试图将所有单元格放在同一行中，但每次单击按钮时，它都会创建一个新行。我是不是让自己可以理解？？再次感谢您，您可以创建一些全局整数，我们称之为

numberOfClicks

，每次单击按钮时它都会递增一（它会在click事件处理程序中递增）。然后简单地使用它：

cell.Row+numberOfClicks

。