请大神帮忙

tmdge1

遇到一个问题，请大神们帮忙，详见附件

zjdh

遇到啥问题都看不懂！！

tmdge1

zjdh 发表于 2021-10-5 20:25
遇到啥问题都看不懂！！

Sub 筛选()
On Error Resume Next
Dim arr, brr(1 To 10000, 1 To 10)
With Worksheets("学生报到花名册 (2021秋)")
  r = .[d65536].End(xlUp).Row
  arr = .Range("a1:aa" & r)
  For i = 5 To UBound(arr)
  If arr(i, 7) * 1 > 5 And arr(i, 7) * 1 < 15 Then
    If arr(i, 27) = "本校" Then
    If arr(i, 28) = "初中" Then
      n = n + 1
      brr(n, 1) = arr(i, 2)
      brr(n, 2) = arr(i, 4)
      brr(n, 3) = arr(i, 5)
      brr(n, 4) = arr(i, 7)
      brr(n, 5) = arr(i, 9)
      brr(n, 6) = arr(i, 10)
      brr(n, 7) = arr(i, 12)
      brr(n, 8) = arr(i, 14)
      brr(n, 9) = arr(i, 26)
      brr(n, 10) = arr(i, 2)
     End If
    End If
   End If
  Next
End With
With Worksheets("适龄儿童少年本校就读花名册")
  .Range("b4").Resize(n, 10) = brr
End With
End Sub
表中“本校”中含有“小学”和“初中”学生的信息，我只提取初中学生的信息，语句哪里错了？请高人 指点一下！！

洋务德雷

Sub 筛选1()
On Error Resume Next
Dim arr, brr(1 To 10000, 1 To 10)
With Worksheets("学生报到花名册 (2)")
  r = .[d65536].End(xlUp).Row
  arr = .Range("a1:ab" & r)
  For i = 5 To UBound(arr)
  If arr(i, 7) * 1 > 5 And arr(i, 7) * 1 < 15 Then
    If arr(i, 27) = "本校" Then
    If arr(i, 28) = "初中" Then
      n = n + 1
      brr(n, 1) = arr(i, 2)
      brr(n, 2) = arr(i, 4)
      brr(n, 3) = arr(i, 5)
      brr(n, 4) = arr(i, 7)
      brr(n, 5) = arr(i, 9)
      brr(n, 6) = arr(i, 10)
      brr(n, 7) = arr(i, 12)
      brr(n, 8) = arr(i, 14)
      brr(n, 9) = arr(i, 26)
      brr(n, 10) = arr(i, 2)
     End If
    End If
   End If
  Next
End With
With Worksheets("适龄儿童少年本校就读花名册")
  .Range("b4").Resize(n, 10) = brr
End With
End Sub

洋务德雷

感觉代码不是你自己写得吧？错误是显而易见的呀
Sub 筛选1()
On Error Resume Next
Dim arr, brr(1 To 10000, 1 To 10)
With Worksheets("学生报到花名册 (2)")
  r = .[d65536].End(xlUp).Row
  arr = .Range("a1:ab" & r)
  For i = 5 To UBound(arr)
  If arr(i, 7) * 1 > 5 And arr(i, 7) * 1 < 15 Then
    If arr(i, 27) = "本校" Then
    If arr(i, 28) = "初中" Then
      n = n + 1
      brr(n, 1) = arr(i, 2)
      brr(n, 2) = arr(i, 4)
      brr(n, 3) = arr(i, 5)
      brr(n, 4) = arr(i, 7)
      brr(n, 5) = arr(i, 9)
      brr(n, 6) = arr(i, 10)
      brr(n, 7) = arr(i, 12)
      brr(n, 8) = arr(i, 14)
      brr(n, 9) = arr(i, 26)
      brr(n, 10) = arr(i, 2)
     End If
    End If
   End If
  Next
End With
With Worksheets("适龄儿童少年本校就读花名册")
  .Range("b4").Resize(n, 10) = brr
End With
End Sub

chenguiyu1234

代码不太懂，但是筛选可以用数据透视表操作一下，需要的信息点上，不需要的就不点-- 数据透视表.rar (1.93 MB, 下载次数: 0)

2021-10-6 10:35 上传

点击文件名下载附件