이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:1]](http://www.abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:151point (22%), 레벨:1/30"){kind=icon}
얀수기
파일은 보안이 걸려있어 올린지 못하고요. 말로 설명 드릴게요. 1.대략 만개 정도의 데이터가 있고요. 2.[바코드], [성공실패] 이렇게 두개의 열이 있습니다. 3. 바코드는 중복된 것이 많습니다. 4. 바코드에는 각각 성공이나 실패 값이 정해져 있는데 5. 우선 중복된 바코드는 전부 단 하나만 남겨야 합니다. 6. 중복된것 중 성공실패 값이 전부 성공이면 그 중 하나만, 성공과 실패가 섞여 있으면 그 중 성공 하나만, 전부 실패면 그 중 하나만 이렇게 남겨야 합니다. VBA 안쓰고 그냥 필터나 정렬로도 쉽게 작업할 수 있는지 궁금합니다. 아니면 VBA를 써야 된다면 소스 좀 알려주세요. 그럼 수고하세요~!
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142053point, 레벨:30/30"){kind=icon}
아별
얀수기님..
가입하시자마자 질문 주셨군요..
보안때문에 못 올려주시면..
공지사항을 참고하셔서.. 엑셀 파일은 제 개인 메일로 보내주시기 바랍니다.
abyul@abyul.com 또는 abyul@naver.com 머.. 둘다 동시에 보내셔도 됩니다.
암튼..
첨부파일이 없어서.. 답변 의욕이 좀 저하됐습니다만..
가입 후에 처음 질문하신것이기에 답변드립니다. ^^
일단..
데이터가 A1셀부터 있다고 가장하겠습니다.
엑셀의 기본 기능으로 처리할때..
간단하게 설명하면 아래와 같습니다.
1. 데이터 모두 선택하고
2. 중복제거 실행.. (바코드, 성공여부 모두 체크하고 실행)
3. 정렬.. (바코드, 성공여부 둘다 오름차순으로 정렬)
4. 중복제거 실행.. (바코드만 체크하고 실행)
5. 끝..
단계별로 세세하게 설명하면 아래와 같습니다.
1. A1셀을 선택합니다.
2. Ctrl+A를 눌러 전체 데이터 영역을 선택하지요..
3. 리본메뉴에서 "데이터" > "중복된 항목 제거"를 선택하시고..
"바코드"열과 "성공여부"열 두개다 체크하신다음.. 확인을 누릅니다.
4. 리본메뉴에서 "데이터" > "정렬" 누르시구요..
첫번재 정렬기준에 "바코드" , 값, 오름차순..
두번째 정렬기준에 "성공여부", 값, 오름차순.. 을 넣어주고 확인을 누릅니다.
5. 리본메뉴에서 "데이터" > "중복된 항목 제거"를 선택하시고..
"바코드"열만 체크하시고.. "성공여부"열은 체크 해제하세요.. 그런 다음.. 확인을 누릅니다.
6. 끝.
쉽죠? ㅎㅎ
VBA로 위 단계를 구현하면 아래와 같습니다.
Sub abRemoveDuplicateOneAndOne()
Dim rng As Range
Set rng = Range("A1").CurrentRegion
rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
Set rng = rng.Cells(1, 1).CurrentRegion
With rng.Parent.Sort
.SortFields.Clear
.SortFields.Add Key:=rng.Resize(, 1), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rng.Resize(, 1).Offset(, 1), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange rng
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
rng.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
첨부파일을 참고해보세요..
다운 받기 : abyul.com_20130315_abRemoveDuplicateOneAndOne.xlsm
P.S. 첨부파일이 없어서 제가 직접 만드는게
얼마나 시간낭비인지 알아주셨으면 좋겠습니다.
도움이 되셨기를..