提示下标越界如何解决，谢谢

jixianbin123

Sub fyExcelVBA()
Dim arr, brr, crr, i%, j%
Dim m%, n%
Dim o, p, r, s As String
arr = Sheets("sheet11").Range("D8").CurrentRegion
ReDim brr(8 To UBound(arr), 1 To UBound(arr))
crr = brr
For i = 8 To UBound(arr)
     If arr(i, 4) = "安装" Then
         n = n + 1
         brr(n, 1) = arr(i, 1)
         brr(n, 2) = arr(i, 2)
         brr(n, 5) = arr(i, 3)
         brr(n, 6) = arr(i, 6)
         r = Format(arr(i, 15), "#")
         s = Format(arr(i, 16), "#")
         crr(n, 7) = DateSerial(2018, r, s)


      ElseIf arr(i, 4) = "维修" Then
           m = m + 1
          crr(m, 1) = arr(i, 1)
          crr(m, 2) = arr(i, 2)
          crr(m, 5) = arr(i, 3)
          crr(m, 6) = arr(i, 6)
          r = Format(arr(i, 15), "#")
          s = Format(arr(i, 16), "#")
          crr(n, 7) = DateSerial(2018, r, s)


      End If
      
Next i
Sheets("安装").Range("a4").Resize(UBound(brr), UBound(brr, 2)).ClearContents
Sheets("安装").Range("a4").Resize(UBound(brr), UBound(brr, 2)) = brr
Sheets("维修").Range("a4").Resize(UBound(crr), UBound(crr, 2)).ClearContents
Sheets("维修").Range("a4").Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub

jixianbin123

求大神知道

xiangbaoan

ReDim brr(8 To UBound(arr), 1 To UBound(arr))'此数组下标是从8开始的，建议改为1
n = n + 1'第一次n为1
brr(n, 1) = arr(i, 1)'到这里就下标越界了，
补充一下：

木有附件，不好猜……………………

jixianbin123

xiangbaoan 发表于 2018-8-22 08:04
ReDim brr(8 To UBound(arr), 1 To UBound(arr))'此数组下标是从8开始的，建议改为1
n = n + 1'第一次n为 ...

改成1也越界 ♂

jsqb

下标越界，就是定义的数组容量小了

jixianbin123

jsqb 发表于 2018-8-22 08:16
下标越界，就是定义的数组容量小了

应该怎么改合适呢

microyip

lsc900707

建议楼主上传附件。

jixianbin123

已上传附件，谢谢大家

jixianbin123

lsc900707 发表于 2018-8-22 08:32
建议楼主上传附件。

想将sheet11的数据筛选到安装或者维修的表格