为啥提示下标越界啊

青春の火焰

新人求教，为啥提示下标越界啊

lsdongjh

For i = 1 To UBound(arr) - 1

青春の火焰

下标问题不出现了，但是还是没结果，估计是内容不对

lsdongjh

1. Sub tt() '提示下标越界啊
   
2. Dim arr, brr()
   
3. arr = [a1:a14]
   
4. ReDim brr(1 To UBound(arr))
   
5. For i = 1 To UBound(arr) - 1
   
6.     If arr(i + 1, 1) - arr(i, 1) <> 1 Then
   
7.         arr(i, 1) = "断点"
   
8.     Else
   
9.         arr(i, 1) = ""
   
10.     End If
    
11. Next
    
12. arr(i, 1) = ""
    
13. 
    
14. Range("b1").Resize(UBound(arr), 1) = arr
    
15. End Sub

复制代码

青春の火焰

谢谢老师，可以了，感谢。
还有一问题，代码里第12行那句话arr(i, 1) = "" ，好像可有可无，是这样吗

lsdongjh

青春の火焰 发表于 2020-2-4 16:44
谢谢老师，可以了，感谢。
还有一问题，代码里第12行那句话arr(i, 1) = "" ，好像可有可无，是这样吗

必须有，这是处理 ubound(arr),最后一行啊

青春の火焰

那我这句不用，14行成Range("b1").Resize(UBound(arr) - 1) = arr  
貌似也可以啊，我在研究研究

青春の火焰

lsdongjh 发表于 2020-2-4 16:46
必须有，这是处理 ubound(arr),最后一行啊

理解了