高级筛选VBA代码
Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("Q4:S5") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then '高级筛选 Worksheets("明细账").Activate Sheets("登记表").Range("getData[[#Headers],[#Data]]").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("Q3").CurrentRegion, CopyToRange:=Range("B4:N4"), Unique:=False '定位到最后一个非空单元格 'ActiveCell.SpecialCells(xlLastCell).Select '自动筛选 'Selection.AutoFilter End If End Sub继续阅读“EXCEL高级筛选”