我试过在各处搜索，但我无法找到解决问题的方法 . 我对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
excel vba excel-vba