时间戳

首页 > 解决方案 > 复制一行文本并粘贴到不同工作簿中的下一个可用空间

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```

.

标签： excelvba

解决方案

尝试这个

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

推荐阅读