为什么代码不能超过3万条数据

dbg111222

Sub 按钮1_Click()
  Dim r%, i%
  Dim arr, brr, crr
  With Worksheets("系统收发数据")
    r = .Cells(.Rows.Count, 3).End(xlUp).Row
    arr = .Range("c6:m" & r)
  End With
  ReDim brr(1 To UBound(arr), 1 To 6)
  ReDim crr(1 To UBound(arr), 1 To 6)
  m = 0
  n = 0
  For i = 1 To UBound(arr)
    Select Case Left(arr(i, 1), 2)
      Case "60"
        m = m + 1
        brr(m, 1) = m
        brr(m, 2) = arr(i, 2)
        brr(m, 3) = arr(i, 4)
        brr(m, 4) = arr(i, 6)
        brr(m, 5) = arr(i, 7)
        brr(m, 6) = Left(arr(i, 3), IIf(Len(arr(i, 3)) = 7, 1, 2))
      Case "59"
        n = n + 1
        crr(n, 1) = n
        crr(n, 2) = arr(i, 2)
        crr(n, 3) = arr(i, 4)
        crr(n, 4) = arr(i, 6)
        crr(n, 5) = arr(i, 7)
        crr(n, 6) = Left(arr(i, 3), IIf(Len(arr(i, 3)) = 7, 1, 2))
    End Select
  Next
  With Worksheets("收入")
    .UsedRange.Offset(1, 0).Clear
    .Range("a2").Resize(m, UBound(brr, 2)) = brr
  End With
  With Worksheets("发出")
    .UsedRange.Offset(1, 0).Clear
    .Range("a2").Resize(n, UBound(crr, 2)) = crr
  End With
End Sub
3万多一点可以，多了就提示溢出。

dbg111222

哪位老师帮忙给看看，谢谢

abc123281

Dim r&, i&

dbg111222

abc123281 发表于 2019-9-30 17:11
Dim r&, i&

非常感谢您。

lsc900707

1. Dim r, i

复制代码