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

2024-12-31 22:25:50

推荐回答（3个）

回答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）会出现错误

回答2：

试试
将代码所在的工作表放在最前面，并将代码中的
For j = 1 To
中的1改为2。

回答3：

这种很难说啊

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

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