请大师帮忙处理下VB运行时出现“下标越界”问题，详情见附件

foolyy

Sub sx()
Dim arr, brr, crr(1 To 9999, 1 To 8), i, j As Integer
arr = Sheets("信息库").Range("a1").CurrentRegion
brr = Sheets("派工单").Range("a1").CurrentRegion
Application.ScreenUpdating = False
For i = 1 To UBound(arr)
    For j = 1 To UBound(brr)
        If arr(i, 1) = brr(j, 1) Then
        m = m + 1
          crr(m, 1) = arr(i, 1): crr(m, 2) = arr(i, 2): crr(m, 3) = arr(i, 3): crr(m, 4) = arr(i, 6): crr(m, 5) = arr(i, 8): crr(m, 6) = arr(i, 10): crr(m, 7) = arr(i, 11): crr(m, 8) = arr(i, 7) 'sheet2中生成sheet1对应列数据
        End If
    Next
Next
With Sheet2
.[c2:j9999].Clear '生成数据的区域
.[c2].Resize(m, 8) = crr
.[c1].CurrentRegion.Borders.LineStyle = xlContinuous
End With
Application.ScreenUpdating = True
End Sub

运行时出现下标越界怎么处理？？

lss001

Sub sx()
Dim arr, brr, i&, j&
arr = Sheets("信息库").Range("a1").CurrentRegion
brr = Sheets("派工单").Range("a1").CurrentRegion
ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
Application.ScreenUpdating = False
For i = 1 To UBound(arr)
    For j = 1 To UBound(brr)
        If arr(i, 1) = brr(j, 1) Then
          m = m + 1
          For k = 1 TO UBound(arr, 2)
             crr(m, k) = arr(i, k)
          Next
        End If
    Next
Next
With Sheet2
.[c2:j9999].Clear
.[c2].Resize(m, UBound(arr, 2)) = crr
.[c1].CurrentRegion.Borders.LineStyle = xlContinuous
End With
Application.ScreenUpdating = True
End Sub

foolyy

大师，你好！首先感谢你的帮助，不会使用这个程序会出现“应用程序定义或对象定义错误”，麻烦你帮忙直接把附件帮我修改下，谢谢

lss001

楼上已经更正！！！

foolyy

lss001 发表于 2019-5-30 17:33
楼上已经更正！！！

谢谢，大师，请帮忙按照附件的描述再修改下代码，最好是能做下注释，万分感谢。