excel代码 运行时错误1004 应用程序定义或对象定义错误

Question

表格里面有sheet1 ，sheet2 ，sheet3， sheet1（1） ，sheet（1），sheet3（1），一直到sheet1（50），sheet2（50），sheet3（50）。

Answer 1

Sub 合并()
Dim j, x&
Application.ScreenUpdating = False
For Each j In Sheets
    If j.Name <> ActiveSheet.Name Then
        x = Range("a65536").End(xlUp).Row + 1
        j.UsedRange.Copy Cells(x, 1)
    End If
Next
Range("a1").Select
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

试试这样

你的代码在少量表格运行并无错误，或者有的簿，或者方法（如copy、delete）会出现错误

Answer 2

试试
将代码所在的工作表放在最前面，并将代码中的
For j = 1 To
中的1改为2。本回答被网友采纳

Answer 3

这种很难说啊