Excel 复制一行文本并粘贴到其他工作簿中的下一个可用空间

我对这个世界完全陌生，被要求简化一些手工复制和粘贴的工作

在阅读了一些帖子后，我发现了这段代码。这非常适合将正确的行移动到不同的工作表中，但我不知道如何更改代码以便粘贴到不同的工作簿中。如果我把工作表的名称放进去，就会出现下标超出范围的错误

如果您有任何帮助，我们将不胜感激，我相信这是一个非常基本的问题：

  Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet

  Set copySheet = Worksheets("Score sheet")
  Set pasteSheet = Worksheets("Sheet1")

  copySheet.Range("A37:Y37").Copy
  pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub```

. 

试试这个

Application.ScreenUpdating = False

Workbooks("Book1.xlsx").Worksheets("Score sheet").Range("A37:Y37").Copy
Workbooks("Book2.xlsx").Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0). _
                        PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True

试试这个

Application.ScreenUpdating = False

Workbooks("Book1.xlsx").Worksheets("Score sheet").Range("A37:Y37").Copy
Workbooks("Book2.xlsx").Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0). _
                        PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True

---

您需要对工作表所在的

工作簿进行限定。谢谢，我该怎么做？只需将工作簿名称和工作表名称全部写在同一行？
Set copySheet=工作簿（“您的工作簿名称”）。工作表（“评分表”）
。。。类似的内容。谢谢，添加了它，但现在get object variable或with block variable未为此代码行设置：pasteSheet.Cells（Rows.Count，1）。End（xlUp）。Offset（1，0）。PasteSpecial XLPasteValues是否也设置了pasteSheet

？您需要对工作表中的

工作簿进行限定。谢谢，我该怎么做？只需将工作簿名称和工作表名称全部写在同一行？
Set copySheet=工作簿（“您的工作簿名称”）。工作表（“评分表”）
。。。类似的内容。谢谢，添加了，但现在get object variable或with block variable未为这行代码设置：pasteSheet.Cells（Rows.Count，1）。End（xlUp）。Offset（1，0）。PasteSpecial XLPasteValues您是否也设置了pasteSheet

？