EXCEL VBA运行时出现1004错误，如何修改？10

发布网友发布时间：2023-11-12 22:26

共5个回答

热心网友时间：2024-12-12 09:30

i = Range("b65536").End(xlUp).Row - 9 '在已使用区域最末一行添加
是这一行的问题.
如果Range("b65536").End(xlUp).Row 小于或等于9 的话. i 就小于=0 了
这样对于下面的 Cells(i, 2).EntireRow.Insert 来说就会产生错误.
因为cells对象要求的行和列参数必须是大于 0 的.追问可是把－9删除后，依然是同样的错误提示。

追答应该不会啊,我在excel2003测试通过了.

热心网友时间：2024-12-12 09:31

把C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel这个文件夹下的东西都删除。
亲自试过，绝对有效

热心网友时间：2024-12-12 09:31

i = Range("b65536").End(xlUp).Row - 9 '在已使用区域最末一行添加
修改成
i = Range("b65536").End(xlUp).Row +1追问谢谢你，还是出现同样的提示。

追答我运行宏提示错误呀。
可以发邮件给你。

我的系统，winxp+excel2007

热心网友时间：2024-12-12 09:32

把dim定义全部放到Sub 插入最末行()前面追问还是不行啊。这样？：
Dim i As Long
Dim k As Long
Dim r As Long
Sub 插入最末行()

追答那就只有采用调试运行，逐语句执行，看是哪行的变量定义错误。

热心网友时间：2024-12-12 09:32

-9删除后，没有问题