求助vba代码问题

你要会自己调试代码
在循环语句前加上：
on error resume next
在黄色代码后面加上：
if err<>0 then
debug.Print y & vbtab & arr(1,y) & vbtab & err.Description
err.Clear
end if
然后运行，在立即窗口看什么地方出错了。