运行时，出现提示：“运行时错误‘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
i = Range("b65536").End(xlUp).Row - 9 '在已使用区域最末一行添加
是这一行的问题.
如果Range("b65536").End(xlUp).Row 小于或等于9 的话. i 就小于=0 了
这样 对于下面的 Cells(i, 2).EntireRow.Insert 来说 就会产生错误.
因为cells对象要求的行和列参数必须是大于 0 的.追问
是这一行的问题.
如果Range("b65536").End(xlUp).Row 小于或等于9 的话. i 就小于=0 了
这样 对于下面的 Cells(i, 2).EntireRow.Insert 来说 就会产生错误.
因为cells对象要求的行和列参数必须是大于 0 的.追问
可是把－9删除后，依然是同样的错误提示。
追答应该不会啊,我在excel2003测试通过了.
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-06-07
把C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel这个文件夹下的东西都删除。
亲自试过，绝对有效
亲自试过，绝对有效
第2个回答 2012-02-29
i = Range("b65536").End(xlUp).Row - 9 '在已使用区域最末一行添加
修改成
i = Range("b65536").End(xlUp).Row +1追问
修改成
i = Range("b65536").End(xlUp).Row +1追问
谢谢你，还是出现同样的提示。
追答我运行宏提示错误呀。
可以发邮件给你。
我的系统，winxp+excel2007
第3个回答 2012-02-29
把dim定义全部放到Sub 插入最末行()前面追问
还是不行啊。这样？：
Dim i As Long
Dim k As Long
Dim r As Long
Sub 插入最末行()
那就只有采用调试运行，逐语句执行，看是哪行的变量定义错误。
第4个回答 2012-03-01
-9删除后，没有问题
