vba代码求助

13771939392

有大神帮我改下代码吗？我查询不到需要查询的人！我很无奈！我是个菜鸟，看了别人视频！自己改的代码，没成功！

chxw68

1. Sub 查询系统()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     xm = .Range("n1")
   
6.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.     arr = .Range("b2:i" & r)
   
8.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
9.     For i = 1 To UBound(arr)
   
10.       For j = 4 To UBound(arr, 2)
    
11.         If arr(i, j) = xm Then
    
12.           Exit For
    
13.         End If
    
14.       Next
    
15.       If j <= UBound(arr, 2) Then
    
16.         m = m + 1
    
17.         For k = 1 To UBound(arr, 2)
    
18.           brr(m, k) = arr(i, k)
    
19.         Next
    
20.       End If
    
21.     Next
    
22.     For i = 1 To m
    
23.       For j = 4 To UBound(brr, 2)
    
24.         If brr(i, j) <> xm Then
    
25.           brr(i, j) = ""
    
26.         End If
    
27.       Next
    
28.     Next
    
29.     .Range("k3:r" & .Rows.Count).Clear
    
30.     .Columns(11).NumberFormatLocal = "m月d日"
    
31.     With .Range("k3").Resize(m, UBound(brr, 2))
    
32.       .Value = brr
    
33.       .Borders.LineStyle = xlContinuous
    
34.       .HorizontalAlignment = xlCenter
    
35.       .VerticalAlignment = xlCenter
    
36.     End With
    
37.   End With
    
38. End Sub
    

复制代码

chxw68

楼主的代码很简练呀！