将文件从一个工作表复制并增加到另一个工作表

Question

在sheet1中，我在行10中有一些数字。

我想在sheet2第3行中复制它们

然后第10行第1行中的数字正在变化

在sheet2中，我需要递增第10 + 1行并从第10行第1页中添加新数字

依旧...... 11 + 1 ... 12 + 1

感谢帮助我）））

Answer 1

此代码将执行您要求的操作。 您需要将它附加到某种命令按钮或快捷键来执行 -

Public Sub MoveFigures()

    ThisWorkbook.Worksheets("Sheet1").Range("A10:C10").Copy _
        Destination:=ThisWorkbook.Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)

End Sub