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

hexiaomeng1990 · 发表于 2019-9-20 15:20

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 · 发表于 2019-9-21 09:44

建议上传附件以便测试

ThxAlot · 发表于 2019-11-16 05:34

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

		自动登录	找回密码
密码			免费注册