将数据从一个电子表格复制/粘贴到另一个电子表格

好的，我已经研究了大约4个小时了。 我有另一个类似的职位，解决了一个问题，只有创build另一个。 此代码从2个电子表格中获取同一列数据。 第一个复制/粘贴效果很好（并填充行A2：A191），但第一个循环之后，从行A1332开始粘贴电子表格中的数据？ A192：A1331的所有单元都是空白的。 代码应该从底部寻找第一个可用的空单元格。 我错过了什么？

这里是有问题的代码。 我已经证实，它解锁了第二个循环的电子表格范围单元格，但之后，它将其粘贴错误？ 格式化似乎不是一个问题？ 有没有可能在我没有看到的细胞中的“东西”？

Set wbkCS = Workbooks.Open(strCutSheetFile(i)) On Error GoTo 0 Set wbkVer = Workbooks.Open(strVerifyFile) Set copyRng = Worksheets("Cutsheets").Range("A2") If copyRng = "" Then wbkCS.Worksheets("Cut Sheet").Range("S4:S2000").Locked = False wbkCS.Worksheets("Cut Sheet").Range("S4:S2000").Copy Destination:=wbkVer.Worksheets("Cutsheets").Range("A2") Else wbkCS.Worksheets("Cut Sheet").Range("S4:S2000").Locked = False wbkCS.Worksheets("Cut Sheet").Range("S4:S2000").Copy Destination:=wbkVer.Worksheets("Cutsheets").Range("A" & Range("A65536").End(xlUp).Row + 1) End If 

Answer 1

尝试在第二个副本语句中限定最后一个范围引用，即：

代替

  .Range("A" & Range("A65536").End(xlUp).Row + 1) 

尝试

  .Range("A" & wbkVer.Worksheets("Cutsheets").Range("A65536").End(xlUp).Row + 1)