Advanced Filter & Sort - Heeyoung-Ahn/Excel_VBA GitHub Wiki

Range.AdvancedFilter (Action, CriteriaRange, CopyToRange, Unique)

Sub AF()
    Dim rngDB As Range
    Dim rngCriteria As Range
    Dim rngCopy As Range
    
    With 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, False
End Sub

μ£Όμ˜ν• μ 

  • 같은 행에 μž‘μ„±λœ 쑰건은 And, λ‹€λ₯Έ 행에 μž‘μ„±λœ 쑰건은 Or
  • λΉ„κ΅μ—°μ‚°μž μ‚¬μš© μ‹œ: <>100, <>λΆˆν•©κ²©, >=90, μ™€μΌλ“œμΉ΄λ“œ μ‚¬μš© κ°€λŠ₯

Sort

Sub SortSample()
    Sheet1.Activate 'μ •λ ¬ν•  μ‹œνŠΈ 선택
    ActiveSheet.AutoFilterMode = False 'AutoFilterMode = False: μžλ™ν•„ν„° ν•΄μ œ, FilterMode = False : ν•„ν„°λ§λœ λ‚΄μš© ν•΄μ œ
    Cells(1, 1).AutoFilter
    With ActiveSheet.AutoFilter.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Cells(1, 1), CustomOrder:="λ³ΈλΆ€μž₯,λΆ€μž₯,κ³Όμž₯,λŒ€λ¦¬,사원"
        .SortFields.Add Key:=Cells(1, 2), Order:=xlDescending
        .SortFields.Add Key:=Cells(1, 3), Order:=xlAscending
        .Header = xlYes
        .Apply
    End With
    ActiveSheet.AutoFilterMode = False 
End Sub
  • 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.

⚠️ **GitHub.com Fallback** ⚠️