[자동필터 걸린 부분만 복사]

[자동필터 걸린 부분만 복사]

AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)

field 필터를 걸 위치

criteria1 필터내용

visibledropdown : 화살표표시 (0=false, 1=true)

operator

xlAnd 1 논리곱

xlBottom10Items 4 하위 10개

xlBottom10Percent 6 하위10%

xlFilterCellColor 8 셀색깔

xlFilterDynamic 11 Dynamic filter

xlFilterFontColor 9 폰트색깔

xlFilterIcon 10 Filter icon

xlFilterValues 7 Filter values

xlOr 2 논리합

xlTop10Items 3 상위10개

xlTop10Percent 5 상위10퍼센트

With rngColumn

.AutoFilter 1, T, , , 0

.Offset(1, -3).Resize(.Rows.Count - 1, 2).Copy rng

.Offset(1).Resize(.Rows.Count - 1, 1).Copy rng.Offset(, 2)

.Offset(1, 2).Resize(.Rows.Count - 1, 2).Copy rng.Offset(, 3)

.AutoFilter

End With

End If

Next i

End Sub