excel - 从一个工作簿复制一个范围并将另一个 VBA 粘贴到工作表

Question

我正在使用 VBA 运行代码。它首先遍历一个目录并拉取文件。

我的目标是复制一个范围并将其粘贴到模板工作表中。

复制代码如下所示：

Dim StrFile As Variant
For Each StrFile In var

Workbooks.Open (loc1 & StrFile)

    sh.Activate
    On Error Resume Next
    Set uBOM = Cells.Find(What:="No.", After:=[A1], LookIn:=xlFormulas, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
    Range(Cells(uCost.Row + 1, uCost.Column), Cells(uCost.Row.End(xlDown), uCost.Columnn + 4)).Copy
    On Error GoTo 0

Next StrFile

如何修改或使用将其粘贴到模板工作簿（我将从中运行代码）？

问候， 马克