|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
부서 조건값 대상자 성명 및 등급번호 값을 가져 오고 싶습니다.
Sheet3에 있는 대상을 Sheet1에서 조건(부서)에 해당인력
성명 및 등급을 모두 가져 왔으면 합니다.
자료 첨부 하였습니다.
감사 합니다.
부서 성명 등급번호
고객1파트기술상담INCU(모바일)모바일 한마진 123456
고객1파트기술상담INCU(모바일)모바일 정근우 123460
고객1파트기술상담INCU(모바일)모바일 유 123461
고객1파트기술상담INCU(모바일)모바일 강현주2 123462
고객1파트기술상담INCU(모바일)모바일 고와라2 123467
고객1파트기술상담1파트사원 경아 123468
고객1파트기술상담1파트사원 조훈 123471
고객1파트기술상담1파트사원 지현 123472
==============[감사합니다님 글에 대한 답변입니다]==============
고급필터와 정렬을 이용하시면 편리하게 가져오실수 있습니다.
첨부 화일 내용을 참고하세요.
VBA는 아래와 같습니다.
Sub 고급필터()
Dim rData As Range
Dim rCriteria As Range
Dim rTg As Range
Set rData = Sheets("Sheet3").Range("A1:C19")
Set rCriteria = Range("Sheet1!I33:I34")
Set rTg = Range("Sheet1!N33")
rData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rCriteria, CopyToRange:=rTg
rTg.CurrentRegion.Sort Key1:=rTg.Cells(1, 3), Header:=xlYes
End Sub
|
|