엑셀 vba 조건으로 필터하기

■ Excel/ㅡExcel VBA Study

엑셀 vba 조건으로 필터하기

with seok 2020. 5. 21. 00:18

엑사남 19강

엑셀 파일 다운로드

조건으로 필터하기.xlsm

0.02MB

Sub Clear_01()

Range("p3").CurrentRegion.Offset(1, 0).Clear

End Sub

Sub Filter_1()

Dim lngB As Long
Dim rngD As Range
Dim rngC As Range
Dim rngP As Range
  'Data, Criteria(기준), Paste의 첫글자들

lngB = Cells(Rows.Count, "b").End(xlUp).Row

Set rngD = Range("b2:k" & lngB)
Set rngC = Range("z9:z10")
Set rngP = Range("p2:v2")

Clear_01

  rngD.AdvancedFilter xlFilterCopy, rngC, rngP, True
      'xlFilterInPlace 그자리에서 필터
      'xlFilterCopy 필터하여 다른 곳에 복사
      'True 중복항목은 제거한다.
End Sub

728x90

저작자표시 비영리 변경금지