로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2013.03.15 19:59
얀수기님..
가입하시자마자 질문 주셨군요..
보안때문에 못 올려주시면..
공지사항을 참고하셔서.. 엑셀 파일은 제 개인 메일로 보내주시기 바랍니다.
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), _
.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. 첨부파일이 없어서 제가 직접 만드는게
얼마나 시간낭비인지 알아주셨으면 좋겠습니다.
도움이 되셨기를..
새 창으로
선택한 기호
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141749point, 레벨: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. 첨부파일이 없어서 제가 직접 만드는게
얼마나 시간낭비인지 알아주셨으면 좋겠습니다.
도움이 되셨기를..