java中复制一行,如何一次复制一行，然后粘贴到Excel中的另一个工作表

我试过在各处搜索，但我无法找到解决问题的方法 . 我对macro vb很新 . 基本上这就是我想要做的 .

我在Sheet1中有400行的数据列表

我在Sheet2中有一个带有公式的模板表

我有Sheet3，我想在Sheet2中复制模板的输出

我想从Sheet1一次复制1行

将其粘贴到Sheet2的row1，以便计算一些公式

将整个模板表从Sheet2复制到Sheet3

通过转到Sheet1并选择要处理的下一行来重复此过程 .

我希望我有意义 . 我真诚地感谢你对此的帮助 . 如果您有疑问，请告诉我 .

这是我到目前为止所拥有的：

Sub copypaste()

'

Sheets("Sheet1").Select

Range("A2:AF2").Select

selection.Copy

Sheets("Sheet2").Select

Range("A2").Select

ActiveSheet.Paste

Range("A2:AJ29").Select

Application.CutCopyMode = False

selection.Copy

Sheets("Sheet3").Select

Range("A1840").Select

selection.End(xlDown).Select

Range("A1850").Select

selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.SmallScroll Down:=21

Sheets("Sheet1").Select

End Sub