Question

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

运行时，出现提示：“运行时错误‘1004’ 应用程序定义或对象定义错误”

Sub 插入最末行()
Dim i As Long
Dim k As Long
Dim r As Long

r = Abs(Int(Application.InputBox("输入增加的行数:", "增加行", , , , , , 1)))
i = Range("b65536").End(xlUp).Row - 9 '在已使用区域最末一行添加

If r > 0 Then
For k = 1 To r
Cells(i, 2).EntireRow.Insert
Next k
End If
End Sub

Answer 1

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

追问

可是把－9删除后，依然是同样的错误提示。

追答

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

Answer 2

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

Answer 3

i = Range("b65536").End(xlUp).Row - 9 '在已使用区域最末一行添加
修改成
i = Range("b65536").End(xlUp).Row +1

追问

谢谢你，还是出现同样的提示。

追答

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

我的系统，winxp+excel2007

Answer 4

把dim定义全部放到Sub 插入最末行()前面

追问

还是不行啊。这样？：
Dim i As Long
Dim k As Long
Dim r As Long
Sub 插入最末行()

追答

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

Answer 5

-9删除后，没有问题