엑셀 vba 다른 시트에 조건으로 필터링하기

엑사남 19강

엑셀 파일 다운로드

다른시트에 조건으로 필터하기.xlsm

0.02MB

Sub Filter_OtherSh() Dim lng1 As Long Dim rngD1, rngC2, rngP2 As Range      lng1 = Sheets(1).Cells(Rows.Count, "b").End(xlUp).Row      Set rngD1 = Sheets(1).Range("b2:k" & lng1)      Set rngC2 = Sheets(2).Range("b2:c3")      Set rngP2 = Sheets(2).Range("e2:k2")      rngP2.CurrentRegion.Offset(1, 0).Clear      rngD1.AdvancedFilter xlFilterCopy, rngC2, rngP2, True           'xlFilterInPlace 그자리에서 필터           'xlFilterCopy 필터하여 다른 곳에 복사           'True 중복항목은 제거한다. Dim lng2 As Long Dim rngD2 As Range      lng2 = Sheets(1).Cells(Rows.Count, "e").End(xlUp).Row      Set rngD2 = Range("e2:k" & lng2)      rngD2.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlYes      rngD2.Sort key1:=Range("k2"), order1:=xlDescending, Header:=xlYes               '평균으로 내림차순 정렬 End Sub