2

好的，我已经研究了大约 4 个小时了。我有另一篇类似的帖子解决了一个问题，只是为了创建另一个问题。此代码从 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
4

1 回答 1

2

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

代替

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

尝试

    .Range("A" & wbkVer.Worksheets("Cutsheets").Range("A65536").End(xlUp).Row + 1)
于 2012-12-23T07:09:17.933 回答