相关疑难解决方法(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"表来获得这个

我还可以做些什么

这个问题让我抓狂.我有以下代码:

'unprotect sheet
If.Range("Start").Row+1<.Range("End").Row then
  .Rows(.Range("Start").Row+1 & ":" & .Range("End").Row-1).Select
  Selection.Delete Shift:=xlUp
  'protect sheet
End if

当我在调试模式下运行它并跟踪代码时,它完美地工作.但是当以正常模式运行代码(而不是调试)时,它给出了一条错误消息,因为"Range类的select方法失败了"这个错误发生在行中:.Rows(.Range("Start").Row +1 .... 就在IF语句之后.有任何想法吗？请帮忙.