无法将数据从一个工作表复制到另一工作表

Question

我所拥有的： 我将按照我编写的VBA代码将数据复制到另一个工作簿工作表中的一个工作簿工作表数据上。运行此程序时，它显示了应用程序定义的错误。

Workbooks(mainworkbook).Sheets(ws.Name).Range("A1").Value = Workbooks(dataworkbook).Sheets(ws.Name).Range(Cells(1, 1), Cells(clearrow, lcol1)).Value

Answer 1

单元格不完全合格。看到添加的点，它们会产生巨大的变化：

With Workbooks(dataworkbook).Sheets(ws.Name)
    Workbooks(mainworkbook).Sheets(ws.Name).Range("A1").Value = .Range(.Cells(1, 1), .Cells(clearrow, lcol1)).Value
End With

类似的问题：

• Stepping through yields different result then just running
• Variable not being stored in the code when sheet changes