相关疑难解决方法(0)

如何查找包含特定列和特定工作表中数据的最后一行？

当我查看"Temp"表时,此脚本正常工作.但当我在另一张纸上时,复制命令失败..它给出了"应用程序定义的或对象定义的错误"

Sheets("Temp").Range(Cells(1), Cells(1).End(xlDown)).Copy
Sheets("Overview").Range("C40").PasteSpecial

我可以使用这个脚本,但后来我有粘贴它的问题

Sheets("Temp").Columns(1).Copy
Sheets("Overview").Range("C40").PasteSpecial

• 我不想激活"Temp"表来获得这个

我还可以做些什么

我试图通过将值从一个范围分配到另一个范围来将一些数据从一个工作簿移动到另一个工作簿.当我使用普通的Range语法指定目标范围(Range("A1:B2"))时,我的代码可以工作,但如果我尝试使用Range,Cells语法(范围(单元格(1,1),单元格(2) ,2)))我的代码不起作用.

我激活目标工作簿(ActiveWorkbook)并在源工作簿(ThisWorkbook)中运行代码.

此代码有效:

ActiveWorkbook.Worksheets(1).Range("A1:B2").Value _
= ThisWorkbook.Worksheets(1).Range(Cells(1, 1), Cells(2, 2)).Value

但是这段代码没有:

ActiveWorkbook.Worksheets(1).Range(Cells(1, 1), Cells(2, 2)).Value _
= ThisWorkbook.Worksheets(1).Range(Cells(1, 1), Cells(2, 2)).Value

我得到的错误是运行时错误'1004':应用程序定义或对象定义的错误.

有谁知道为什么使用单元格对象导致我的问题,或者是否有其他问题我不知道？