运行时错误，下标越界

xing_chen · 发表于 2023-2-23 21:48

老师，有2簿，此2簿表格一样，代码一样；只是簿1重系统导出后，进行了字体大小整理，簿2是将系统导出的，复制粘贴到新的工作簿中。但代码运行簿2可以，簿1则不行；显示代码运行错误9，下标越界。花了多时，都未检查出错误在哪里，敬请老师赐教。谢谢

shiruiqiang · 发表于 2023-2-23 22:23

zjzyj · 发表于 2023-2-23 22:26

因为表2在14行以后有肉眼不可见内容，所以一直运行，运行到第1001行的时候，就越界了

将：arr = sht.UsedRange
改为：arr = sht.Range("A1").CurrentRegion

太极拍天雄 · 发表于 2023-2-23 22:28

将arr = sht.UsedRange 改成 arr = sht.Range("a1").CurrentRegion试试！

xing_chen · 发表于 2023-2-23 22:39

shiruiqiang 发表于 2023-2-23 22:23

谢谢老师！果然运行顺利，可以了。但还是有点想不通。有比较就有伤害。为什么一个行，一个不行?

shiruiqiang · 发表于 2023-2-23 22:52

xing_chen 发表于 2023-2-23 22:39
谢谢老师！果然运行顺利，可以了。但还是有点想不通。有比较就有伤害。为什么一个行，一个不行?

不知你在怎么操作，虽然看上去空格，但数组默认非空，写入时有998了

xing_chen · 发表于 2023-2-23 23:08

shiruiqiang 发表于 2023-2-23 22:52
不知你在怎么操作，虽然看上去空格，但数组默认非空，写入时有998了

谢谢老师！我定位了，是到998.以前操作其它表格是也遇到过此类问题。看上去空格，但实际上簿空格。我都是一行行删。这次没有首先想到删行。看来还是要查询有否代码可以查询空格情况的。谢谢

		自动登录	找回密码
密码			免费注册

[求助] 运行时错误，下标越界