Question

运行到11行的时候，提示excel VBA中出现运行时错误"1004“：应用程序定义或对象定义错误

Sub AAA()
Dim I As Long, J As Long, K As Integer, I1 As Worksheet, J1 As Worksheet
Set I1 = Worksheets("Sheet1")
Set J1 = Worksheets("Sheet3")
For I = 2 To I1.Range("A65536").End(xlUp).Row
For J = 2 To J1.Range("A65536").End(xlUp).Row
If I1.Cells(I, 1) = J1.Cells(J, 1) And J1.Cells(J, 10) <> "" Then
For K = 10 To 40
J1.Cells(I, K).Copy
I1.Cells(I, K).PasteSpecial Paste:=xlPasteValues
Next
End If
Next
Next

End Sub

Answer 1

应该出现错误的位置在 I1.Cells(I, K).PasteSpecial Paste:=xlPasteValues
在粘贴时候要激活工作表才行 所以在 这一句的上面加一句
l1.activate

Answer 2

copy后面需要加上
if excel.application.cutcopymode=copy then
然后用您的粘贴就行了。
我是这么做的。