运行时错误1004 – 应用程序定义或对象定义的错误

我在这段代码的最后一行得到这个错误

Set Cumulative = ThisWorkbook.Sheets("Cumulative") RefWeek = Cumulative.Range("A1").End(xlDown).Row - 6 Cells(RefWeek, 1).Select Cumulative.Range(Cells(RefWeek, 1), Cells(RefWeek + 6, 16)).Copy 

任何人都可以帮忙吗？ ：/

（这里有更多的代码，但是我得到了这个部分的错误，如果你需要我添加其余的部分，请问）

Answer 1

UNTESTED：

 Set Cumulative = ThisWorkbook.Sheets("Cumulative") With Cumulative RefWeek = .Range("A1").End(xlDown).Row - 6 Range(.Cells(RefWeek, 1), .Cells(RefWeek + 6, 16)).Copy End With 

注意我删除了Select需要正确的工作表首先Select编辑。