下标越界问题

phennhui · 发表于 2023-6-21 11:09

這個表是论坛里朋友帮写的,但现在发现只要多添加一行,就会显示下标越界,哪位大神帮我看一下 ,我一共有不到3000行那样,但现在超过7行就报错,谢谢.

于箱长 · 发表于 2023-6-21 11:15

这种情况多半是你自己改了工作表名称导致的

phennhui · 发表于 2023-6-21 11:19

于箱长发表于 2023-6-21 11:15
这种情况多半是你自己改了工作表名称导致的

我试过不改名也出现这个问题呢

ww87725244 · 发表于 2023-6-21 11:21

现在应该不会了吧

iu950 · 发表于 2023-6-21 11:35

把 ReDim Preserve brr(1 To UBound(arr, 2), 1 To UBound(brr) + 1) 这句改一下 ReDim Preserve brr(1 To UBound(arr, 2), 1 To UBound(arr) + 1)，试试

phennhui · 发表于 2023-6-21 12:05

ww87725244 发表于 2023-6-21 11:21
现在应该不会了吧

確實可以了,謝謝!

phennhui · 发表于 2023-6-21 12:05

iu950 发表于 2023-6-21 11:35
把 ReDim Preserve brr(1 To UBound(arr, 2), 1 To UBound(brr) + 1) 这句改一下 ReDim Preserve brr(1 To ...

试了一下,应该也没有问题,谢谢

沈默00 · 发表于 2023-6-21 14:13

还是大佬们厉害，看半天没发现

phennhui · 发表于 2023-6-24 09:59

iu950 发表于 2023-6-21 11:35
把 ReDim Preserve brr(1 To UBound(arr, 2), 1 To UBound(brr) + 1) 这句改一下 ReDim Preserve brr(1 To ...

你好,我发现这里用brr 和arr 暂时没发现对结果有影响,您能告诉我一下他们的区别吗,这一句其实我不是很理解,谢谢!

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

[求助] 下标越界问题