将单元格复制到另一个工作表中的新行 [英] Copy cells to a new row in another sheet

问题描述

我需要从工作表上的表单复制几个单元格，然后将它们粘贴到工作表活动上的新行中。

拆分：

点击按钮时：

• 将在活动工作表(表单)上选择单元格"；B2、B3、B4、B5、B6、A10、A16、A21、A24、E10、E17、E20、E23、E26、I10、I12、I14、I16、M10、M12、M14、M16、M19、M22和Quot；并进行复制。
• 将复制的单元格粘贴到另一个工作表(活动)并粘贴到新行(类似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
End Sub

但它不能正常工作，我还没有计算出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

这篇关于将单元格复制到另一个工作表中的新行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！