1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

엑셀 질문있습니다~!

엑셀일반 조회 수 3899 추천 수 0 2013.03.15 15:46:43

 

파일은 보안이 걸려있어 올린지 못하고요.

 

말로 설명 드릴게요.

 

1.대략 만개 정도의 데이터가 있고요.

 

2.[바코드], [성공실패] 이렇게 두개의 열이 있습니다.

 

3. 바코드는 중복된 것이 많습니다.

 

4. 바코드에는 각각 성공이나 실패 값이 정해져 있는데

 

5. 우선 중복된 바코드는 전부 단 하나만 남겨야 합니다.

 

6. 중복된것 중 성공실패 값이 전부 성공이면 그 중 하나만, 성공과 실패가 섞여 있으면 그 중 성공 하나만, 전부 실패면 그 중 하나만

 

이렇게 남겨야 합니다.

 

VBA 안쓰고 그냥 필터나 정렬로도 쉽게 작업할 수 있는지 궁금합니다. 아니면 VBA를 써야 된다면 소스 좀 알려주세요.

 

그럼 수고하세요~!


댓글 '1'

profile

[레벨:30]아별

2013.03.15 19:59:17
*.104.126.21

얀수기님..

가입하시자마자 질문 주셨군요..


보안때문에 못 올려주시면..

공지사항을 참고하셔서.. 엑셀 파일은 제 개인 메일로 보내주시기 바랍니다.

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. 첨부파일이 없어서 제가 직접 만드는게 

     얼마나 시간낭비인지 알아주셨으면 좋겠습니다.


도움이 되셨기를..

첨부
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜sort 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 61668
462 엑셀일반 엑셀 줄 간격에 대해서 [1] [레벨:3]빛의행운아 2011-12-28 9548
461 피벗테이블 엑셀 데이터 정리관련 문의~~~ [2] [레벨:2]flash 2011-12-30 3179
460 엑셀일반 엑셀에서 가로 세로 바꾸기 입니다. file [2] [레벨:4]pgpoch 2011-12-30 3989
459 엑셀일반 구버전 호환모드로 로드 시, 계행문자 줄바꿈 저장 안되는 현상 관련 file [2] [레벨:6]파이스 2012-01-02 4559
458 피벗테이블 질문하나 더 올립니다 file [6] [레벨:4]pgpoch 2012-01-02 3218
457 엑셀일반 ㅠ-ㅠ [1] [레벨:3]빛의행운아 2012-01-03 3031
456 테두리 두께 변경과 색상 입히기 file [2] [레벨:1]최선 2012-01-08 4542
455 엑셀일반 엑셀 듀얼모니터 사용 시 붙여 넣기 문제 [2] [레벨:3]읍내꽃미남 2012-01-09 4840
454 엑셀일반 입력된 데이터의 끝으로 이동하는 방법이 궁금합니다. [1] [레벨:6]파이스 2012-01-09 4590
453 엑셀일반 [Ctrl + F] 찾기 관련 질문... [9] [레벨:4]나카타 2012-01-09 2777
452 엑셀일반 바꾸기 기능 file [4] [레벨:0]불꽃남자76 2012-01-12 2755
451 엑셀일반 UDF에 의한 계산 결과 오류 [2] [레벨:0]엑셀의 초짜 2012-01-13 3249
450 엑셀일반 함수 관련 질문 드립니다. file [2] [레벨:3]블루짱이 2012-01-13 2780
449 아별툴관련질문 아별툴을 설치 하고 나서 crtl+f 의 기능 중에.. [4] [레벨:2]큰아빠에요 2012-01-16 3158
448 아별툴관련질문 쥔장님! 오류가 나서요. 한번 봐주세요. [3] [레벨:1]함도 2012-01-17 2741
447 IF수식 조건 함수문의 file [2] [레벨:3]블루짱이 2012-01-17 2870
446 아별툴관련질문 아별툴 설치시 오류...ㅠ.ㅠ imagefile [4] [레벨:1]House 2012-01-22 3166
445 엑셀일반 아별을 깔면 이러네요.ㅠ.ㅠ 엑셀 창이 알트텝으로 검색이 안되요 imagefile [2] [레벨:2]큰아빠에요 2012-01-30 4698
444 아별툴관련질문 아별 깔고나서 글이 안써져요 [1] [레벨:1]박주연 2012-02-02 3086
443 IF수식 특정조건에 만족이 되면 끝에 문자를 추가하는 방법 file [3] [레벨:4]부루끄 2012-02-02 3570