vba中复合筛选的问题

faslow

如附件，我有一个成绩表，想要筛选班级为2310，总分在前5的数据；
第一步：筛选全部班级为2310的数据
第二步：在第一步的基础上，筛选总分前5的数据
代码如下：

1. Sub test()
   
2.     Dim filterRng As Range
   
3.    
   
4.     AutoFilterMode = False
   
5.     filterRng.AutoFilter field:=1, Criteria1:=2310
   
6.     filterRng.AutoFilter field:=3, Criteria1:=5, Operator:=xlTop10Items
   
7. End Sub
   

复制代码

为什么筛选出来的是三行，而不是五行？又该如何解决？

q490525427

1. 
   

复制代码

错误删除，请参考三楼

quqiyuan

用SQL的方法，仅供参考。。。

lss001

Sub test()
  AutoFilterMode = False
  With ActiveSheet.UsedRange
      .AutoFilter field:=1, Criteria1:=2310
      .AutoFilter field:=3, Criteria1:=">=" & _
      Application.Aggregate(14, 1, .Columns(3), 5)
  End With
End Sub

quqiyuan

代码如下。。。
Sub test()
    Set CONN = CreateObject("ADODB.Connection")
    Set sht = ThisWorkbook.Sheets("sheet1")
    sqlstr = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0; HDR=yes;IMEX=0';Data Source=" & ThisWorkbook.FullName
    CONN.Open sqlstr
    Sql = "SELECT top 5 * FROM [总分$a1:l] where 班级=2310 order by 总分 desc"
    Set RS = CONN.Execute(Sql)
    sht.Cells.Clear
    For i = 0 To RS.Fields.Count - 1
       sht.Cells(1, i + 1).Value = RS.Fields(i).Name
    Next
    sht.Cells(2, 1).CopyFromRecordset RS
    CONN.Close
    Beep
End Sub

quqiyuan

代码如下。。。
Sub test()
    Set CONN = CreateObject("ADODB.Connection")
    Set sht = ThisWorkbook.Sheets("sheet1")
    sqlstr = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0; HDR=yes;IMEX=0';Data Source=" & ThisWorkbook.FullName
    CONN.Open sqlstr
    Sql = "SELECT top 5 * FROM [总分$a1:l] where 班级=2310 order by 总分 desc"
    Set RS = CONN.Execute(Sql)
    sht.Cells.Clear
    For i = 0 To RS.Fields.Count - 1
       sht.Cells(1, i + 1).Value = RS.Fields(i).Name
    Next
    sht.Cells(2, 1).CopyFromRecordset RS
    CONN.Close
    Beep
End Sub

lhm667788

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    筛选的行 = Table.SelectRows(源, each ([班级] = 2310)),
    排序的行 = Table.Sort(筛选的行, {{"总分", Order.Descending}}),
    保留的前五行 = Table.FirstN(排序的行, 5)
in
    保留的前五行

faslow

q490525427 发表于 2025-1-30 11:14

感谢回复，但是完全错误