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

2024-12-05 05:49:32

推荐回答（5个）

回答1：

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

回答2：

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

回答3：

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

回答4：

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

回答5：

-9删除后，没有问题