나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 dnasi (cmg19)

추천:  2
파일:     조회:  6702
제목:   중복된 데이터가 있는 열 삭제하는 방법...
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>

1. 2000
2. win2000 pro
3. p3 500 X 2
4. 512

먼저 글 읽어 주셔서 대단히 감사합니다.

엑셀로 작업을 하고있습니다.
같은 데이터(두번째 전화번호)가 있는 열을 삭제해야 하는데요.. 
13000열이나 되니.. 일일이 하는것은 불가능해 보이네요...
(번호 마지막자리는 개인정보 문제로 X 로 수정했습니다 ^_^)

===========================================================
20030124_232542 0199464258X 19 802 1월
20030123_164406 0199464258X 17 309 1월
20030124_061046 0199464258X NO 69 1월
20030123_164751 0199464258X NO 50 1월
20030123_163748 0199464258X 12 40 1월
20030124_061302 0199464258X NO 12 1월
20030124_060853 0199464258X NO 10 1월
20030124_060435 0199464258X NO 7 1월
20030123_160037 0199464258X NO 0 1월
20030224_181317 0199533006X 17 1762 2월
20030319_023333 0199725189X NO 10 3월
20030310_022543 0199725189X NO 7 3월
20030205_042327 0199725189X NO 7 2월
20030319_024100 0199725189X NO 0 3월
20030319_023608 0199725189X NO 0 3월
===========================================================

이렇게 되어있는 자료를... 두번째 전화번호부분에서 같은 번호들중 맨위에것만 두고...
나머지는 삭제하여

===========================================================
20030124_232542 0199464258X 19 802 1월
20030224_181317 0199533006X 17 1762 2월
20030319_023333 0199725189X NO 10 3월
===========================================================

이런 결과를 얻을수 있는 방법이 없을까... 해서 글을 올려봅니다... 아...

노가다... 노가다네요... ㅡ,.ㅜ 		　
[불량 게시물 신고]  
규한♥사랑고급필터를 사용해보세요(고유레코드만)07-02 (18:20)
ⓧ삭제 ■신고
ist공원B열에 중복을 구분하는 데이터가 위치하도록 잘 정리하시구요.
Sub 중복데이터삭제()
    Dim myrange As Range
    Set myrange = ActiveSheet.Range("b1")
    Do
        If myrange.Value = myrange.Offset(1, 0).Value Then
            myrange.Offset(1, 0).EntireRow.Delete
        Else
            Set myrange = myrange.Offset(1, 0)
        End If
    Loop While Not IsEmpty(myrange)
End Sub
건투를....		07-02 (18:39)
ⓧ삭제 ■신고
BBC전화번호가 셀로구분되어 있겠죠
    A                B        C ..   Z
00000000-232545 0199464101xx xx xx  =if(B2<>B1,1,0)
00000000--232545 0199464101xx xx xx  =if(B3<>B2,1,0)
....

1. 전화번호 기준(B열로 가정)으로 소팅합니다.
2. Z열 하나 만들고 아래것과 번호가 같으면 0 다르면 1을 표시하는 식을 만들어
3. 쫙 아래로 복사합니다.
4. Z열 전체를 선택=>복사=>선택하여 붙여넣기=>값 (식을 을 값으로 변환)
4. Z열 기준으로 소팅합니다.
Z열이 0으로 된것만 지웁니다.

간단하죠.

만일 셀로 구분되어 있지 않다면==>B2대신 MID(A1,16,11)) 등 과 같이 하면 되겠죠
Mid(A1,16,11)는 A1셀의 문자중 16번째 문자부터 11개 길이만큼(전화번호 부분)
이니 실제 자료에 맞게 변경하셔야 합니다.
07-02 (18:42)
ⓧ삭제 ■신고
ist공원두 번째 댓글의 ist공원입니다.
매크로를 실행하기 전에 우선 B열을 기준으로 sorting을 해야 합니다.^^
수가 딸린지라, 엉성하네요..
건투를...		07-02 (18:45)
ⓧ삭제 ■신고
dnasi아이.. ㅡ,.ㅜ 너무 감사해서 눈물이 나옵니다.. T.,T 정말 감사합니다~
복받으실거에요~ ^_^		07-02 (19:22)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-07-02(18:15)
최종수정일 : 2003-07-02(18:15)