高级筛选器不起作用VBA

Question

I am trying to run an advanced filter, but when I run it, my data gets hidden..Do you know why?

Sub AdvancedFilter()
'
' AdvancedFilter Macro


 Range("E34").Select
    Range("E34:P" & Range("P" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Rules").Range("B3:M4"), Unique:=False
End Sub

So, attached my rules(which is same header) and where I want my data goes.

Answer 1

Have you tried changing "Action:=xlFilterInPlace" to "Action:=xlFilterCopy" to copy the data to another worksheet. Because your method filters it in place, hides data and data only filtered by criteria is shown.