删除重复值时出现Excel VBA错误。运行时出错,但单步执行时出错

删除重复值时出现Excel VBA错误。运行时出错,但单步执行时出错,excel,vba,Excel,Vba,当点击Run Sub(F5)运行整个子例程时,我得到“运行时错误‘1004’:应用程序定义或对象定义错误”。但是,当我使用调试函数(F8)逐步通过它时,它会毫无错误地通过这一行。代码中是否有我可以更改的内容来更正此问题。代码如下: lastrow = Sheet9.Cells(Rows.count, 1).End(xlUp).Row Range(Sheet9.Cells(1, 1), Sheet9.Cells(lastrow, 14)).Clear lastrow = Sheet3.Cells(

当点击Run Sub(F5)运行整个子例程时,我得到“运行时错误‘1004’:应用程序定义或对象定义错误”。但是,当我使用调试函数(F8)逐步通过它时,它会毫无错误地通过这一行。代码中是否有我可以更改的内容来更正此问题。代码如下:

lastrow = Sheet9.Cells(Rows.count, 1).End(xlUp).Row
Range(Sheet9.Cells(1, 1), Sheet9.Cells(lastrow, 14)).Clear
lastrow = Sheet3.Cells(Rows.count, ProjCol).End(xlUp).Row
For i = 1 To lastrow
    Sheet3.Range(Sheet3.Cells(i + 1, ProjCol), Sheet3.Cells(i + 1, LampCol)).Copy Destination:=Sheet9.Range(Sheet9.Cells(i, 1), Sheet9.Cells(i, 2))
Next i
lastrow2 = Sheet9.Cells(Rows.count, 1).End(xlUp).Row

'ERROR OCCURS WITH LINE BELOW
Sheet9.Range(Cells(1, 1), Cells(lastrow2, 2)).RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo

所有范围对象都需要有明确说明的父对象:
Sheet9.Range(Sheet9.Cells(1,1),Sheet9.Cells(lastrow2,2))…
就是这样,谢谢。可能是在我单步浏览时工作的,因为我让工作表处于活动状态并正在观看它。所有范围对象都需要有明确的父对象声明:
Sheet9.Range(Sheet9.Cells(1,1),Sheet9.Cells(lastrow2,2))…
就是这样,谢谢。可能是我一步一步走过的时候工作的,因为我把床单激活了,并且在看它。