728x90
엑사남 19강
| 엑셀 파일 다운로드 |
| 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
'■ Excel > ㅡExcel VBA Study' 카테고리의 다른 글
| 엑셀 vba 이름정의 활용한 vba 코드 (0) | 2020.05.28 |
|---|---|
| 엑셀 vba 다른 시트에 조건으로 필터링하기 (0) | 2020.05.21 |
| 엑셀 vba 여학생만 복사 (조건에 맞는 행 전체 복사) (2) | 2020.05.20 |
| 엑셀 vba 남학생만 모두 삭제, 행 전체 (0) | 2020.05.19 |
| 엑셀 vba 중복항목 제거 (0) | 2020.05.19 |