为什么会下标越界

xing_chen · 发表于 2023-4-19 14:55

老师，有表时分类汇总的，中间写有代码，但不知是何与原因显示下标越界。敬请老师赐教

心的启点 · 发表于 2023-4-19 15:01

本帖最后由心的启点于 2023-4-19 15:03 编辑

你的ARR数组的2维只有两列所以提示下标越界了
arr = Range("c2", [D2].End(xlDown))
改成arr = Range("c2", [X2].End(xlDown))

xing_chen · 发表于 2023-4-19 15:11

心的启点发表于 2023-4-19 15:01
你的ARR数组的2维只有两列所以提示下标越界了
arr = Range("c2", [D2].End(xlDown))
改成arr = Range("c2 ...

谢谢老师！发现了！

心的启点 · 发表于 2023-4-19 15:15

老师不敢当哦，你都是铁杆了，大家相互学习。将求助改成已解决吧。

ykcbf1100 · 发表于 2023-4-19 16:21

本帖最后由 ykcbf1100 于 2023-4-19 16:22 编辑

arr = Range("c2", [D2].End(xlDown))
把上面这句代码改成下面这样的，就不容易错。
r=[D2].End(xlDown).row
arr = Range("c2:x" & r)

xing_chen · 发表于 2023-4-19 16:45

ykcbf1100 发表于 2023-4-19 16:21
arr = Range("c2", [D2].End(xlDown))
把上面这句代码改成下面这样的，就不容易错。
r=[D2].End(xlDown). ...

好的！谢谢老师！

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

[求助] 为什么会下标越界