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删除后,没有问题