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