下标越界报错

CAONI

1、单元格a列中，a5、a6、a7中填有数据其余为空，现在采用数组循环的方式将a5列中数据填到c5列

2、采用下列代码出现下标越界报错

3、我知道当i=4时会出现下标越界报错，因为数组arr中只有3个数据。

4、在不将For i = 1 To 66改为：For i = 1 To UBound(arr)）的情况下，能否像 If arr(i, 1) = "" Then这句样，加一条限定arr(i, 1)越界时用GoTo 100自动跳转到100的解决方法，谢谢！



Sub 按钮1_Click()
Dim arr
arr = Range("a5:a" & Range("a1048576").End(xlUp).Row)
c = 5
For i = 1 To 66
If arr(i, 1) = "" Then
（也就是if arr(i, 1) = 越界 then这条怎样写)

GoTo 100
Else
Range("c" & c) = arr(i, 1)
End If
c = c + 1
Next
100
End Sub




下标越界.rar (13.5 KB, 下载次数: 5)

2023-3-12 14:26 上传

点击文件名下载附件

3190496160

arr数组目前是有三行数据，你却要循环到66行，当循环到第四行的时候，肯定就下标越界了呀，可以修改为
For i = 1 To UBound(arr)

3190496160

For i = 1 To UBound(arr)

CAONI

3190496160 发表于 2023-3-12 14:46
arr数组目前是有三行数据，你却要循环到66行，当循环到第四行的时候，肯定就下标越界了呀，可以修改为
For ...

题意第4点是：
4、在不将For i = 1 To 66改为：For i = 1 To UBound(arr)）的情况下，能否像 If arr(i, 1) = "" Then这句样，加一条限定arr(i, 1)越界时用GoTo 100自动跳转到100的解决方法，谢谢！

zxsea_7426

不改成这句For i = 1 To UBound(arr)怎么改都会报下标越界因为数组ubound(arr)<66r ,除非 加一句用i与ubound(arr)比较大小来定
我这是使用跳出循环而没有使用goto 100：语句效果差不多没有批定行。



使用goto 100:

CAONI

zxsea_7426 发表于 2023-3-12 16:51
不改成这句For i = 1 To UBound(arr)怎么改都会报下标越界因为数组ubound(arr)

谢谢老师，我原以为能用某个函数或方法判断数组下标越界而跳出循环，看来还是要用到UBound(arr)，多谢老师指点！

半百

CAONI 发表于 2023-3-12 20:55
谢谢老师，我原以为能用某个函数或方法判断数组下标越界而跳出循环，看来还是要用到UBound(arr)，多谢老 ...

GoTo 100
改成下面的试试？
On Error GoTo 100

CAONI

半百 发表于 2023-3-13 13:40
GoTo 100
改成下面的试试？
On Error GoTo 100

又学到一招，谢谢！