代码出错请高手修改一下

hbhsfeng

我套用代码出错，出现下标越界，请高手修改一下。
见表格说明。

鄂龙蒙

1. Sub 查询()
   
2.     Dim Arr, br(), i&, j%, N&, T$
   
3.     [M5:U14].ClearContents
   
4.     T = [L1]
   
5.     If T = "" Then Exit Sub
   
6.     Arr = Range([B3], [K65536].End(3))
   
7.     For i = 1 To UBound(Arr)
   
8.         If Arr(i, 1) <> T Then GoTo 101
   
9.         N = N + 1
   
10.         ReDim Preserve br(1 To 9, 1 To N)
    
11.         For j = 2 To 10
    
12.             br(j - 1, N) = Arr(i, j)
    
13.         Next
    
14. 101
    
15.     Next i
    
16.     If N > 0 Then [M5].Resize(N, 9) = Application.Transpose(br)
    
17. End Sub

复制代码

abc123281

Sub 查询()
Dim Arr, brr(1 To 1000, 1 To 9), i&, j%, n&, t$
[M5:U14].ClearContents
t = [L1]: If t = "" Then Exit Sub
Arr = UsedRange
For i = 3 To UBound(Arr)
  If Arr(i, 2) = t Then
    n = n + 1
    For j = 3 To 11
       brr(n, j - 2) = Arr(i, j)
    Next
  End If
Next
If n > 0 Then [M5].Resize(n, 9) = brr
End Sub

hbhsfeng

感谢大家的帮助。