SubAF()
Dim rngDB AsRangeDim rngCriteria AsRangeDim rngCopy AsRangeWith Sheets("data")
Set rngDB = .Range("A1").CurrentRegion
Set rngCriteria = .Range("K1").CurrentRegion
Set rngCopy = .Range("N1").CurrentRegion.Resize(1)
End With
rngDB.AdvancedFilter xlFilterCopy, rngCriteria, rngCopy, FalseEnd Sub
μ£Όμν μ
κ°μ νμ μμ±λ 쑰건μ And, λ€λ₯Έ νμ μμ±λ 쑰건μ Or
If the AutoFilter drop-down arrows are visible but no rows are currently filtered (all rows are visible), the AutoFilterMode property is True and the FilterMode property is False.