range运行到这里提示应用程序定义或对象定义错误

hexiaomeng1990

Sub 复制粘贴()
For i = 410 To 3 Step -1
j = Cells(i, 17)
If j <> 0 Then
Cells(i + 1, 1).Resize(j, 1).EntireRow.Insert shift:=xlShiftDown
Range(Cells(i, 19), Cells(i, 18 + j)).Copy
'运行到这里提示应用程序定义或对象定义错误
Cells(i + 1, 18).PasteSpecial , , , True
Else
End If
Next
End Sub

abc123281

建议上传附件  以便测试

ThxAlot

Range(Cells(i, 19), Cells(i, 18 + j)).Copy
写成
with activesheet
      .Range(.Cells(i, 19), .Cells(i, 18 + j)).Copy
end with