A열에서 데이터를 가져와 자동으로 중복데이터를 정리 하고 정렬을 하였으면 합니다.

함수/공식
작성자
군자소프
작성일
2021-09-07 02:03
조회
110
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

A열에서 데이터를 가져와 자동으로 중복데이터를 정리 하고 정렬을 하였으면 합니다.

어떻게 해야 할까요?

회원등급 : 새싹등급
포인트 : 121 EP
총질문 : 2 개 (마감율 : 50%)
채택답변 : 0 개
전체 23

  • 2021-09-07 20:27

    파일 수정해서 올렸습니다.

    매크로 보안은 해제하셨죠?

    옵션--보안--보안설정--매크로보안--모든 매크로 포함 과 그 아래 vba~ 체크

    실행버튼은 마우스 우클릭하거나
    f5--개체 선택해서 화살표 눌러보세요


  • 2021-09-07 02:58

    군자소프님 안녕하세요? 🙂

    피벗테이블 이용하시면 바로 해결되실 듯 합니다.^^ 첨부파일 확인해보세요.

    제시해드린 답변이 문제 해결에 도움이 되셨길 바랍니다. 감사합니다.

    Screenshot_1.png

    첨부파일 : 통합-문서1-2.xlsx


    • 2021-09-07 13:12

      관심 가져 주셔서 감사합니다

      제가 질문이 너무 단순 하게 여쭤 보았습니다 ㅠㅠ

      예)

      시트1(C열), 시트2(C열), 시트3(C열), 시트4(C열) 에 있는 자료를 다 가져와서 중복제거 및 정열을 해야 하고

      매번 할때마다 중복제거 하고 나서 정열된 길이가 항시 틀립니다

      엑셀파일 한번만 봐주십시요 *^_^*

      첨부파일 : 한진택배-작업.xlsx


  • 2021-09-07 09:06

    a열 e열에 복사--e열 데이터탭의 중복된 항목제거

    e열 오름차순 정렬 하는 방법도 있습니다.


    • 2021-09-07 12:06

      현재 하고 있는 방법이 그방법이라서요

      자동으로 하고 싶어서요 ^^

      관심 가져주셔서 감사 합니다.


  • 2021-09-07 12:51

    이런 방법도

    있겠네요

    첨부파일 : 중복제외_오름차순-정렬.xlsm


    • 2021-09-07 13:13

      관심 가져 주셔서 감사합니다

      제가 질문이 너무 단순 하게 여쭤 보았습니다 ㅠㅠ

      예)

      시트1(C열), 시트2(C열), 시트3(C열), 시트4(C열) 에 있는 자료를 다 가져와서 중복제거 및 정열을 해야 하고

      매번 할때마다 중복제거 하고 나서 정열된 길이가 항시 틀립니다

      엑셀파일 한번만 봐주십시요 *^_^*

      첨부파일 : 한진택배-작업.xlsx


  • 2021-09-07 13:48

    발송~반품시트의 각 c열의 값의 중복제외 한 리스트를 작업시트의 h열과 q열에 오름차순으로 나열하면 되나요?


    • 2021-09-07 13:59

      넵 *^_^*

      그런데 이것이 매번 데이터 가져와서 할때마다 갯수가 틀려서 자동으로 길이가 늘어 날수 있을가요

      아래쪽이 합계라 삽입을 어느정도 해주고 매번 하고 있습니다


      • 2021-09-07 18:46

        4개시트 c열값을 작업시트에 모아 중복제외하고 오름차순 정렬 후

        작업시트의 요금범위(2군데)에 입력했습니다. 보완사항 있으면 답글 주세요.

        4개 시트의 c열 데이터범위가 변동되도 정상 작동합니다.


        • 2021-09-07 19:06

          감사 합니다

          그런데  요금범위(2군데)에 입력이 되어 질때 종류가 많아져서 길이가 길어 지면 밑에 합계가 지워지는데 자동으로 길이도 늘릴수는 없는지 궁금 합니다

           

          그리고 요금나열을 두번누르니 아래 그림 처럼 되버립니다 ^^

          2021-09-07-19-04-08.png


        • 2021-09-07 19:11

          요금나열 버튼 자리를 옴기니까 저런 현상이 나네요

          옴기지 않으면 잘됩니다 ^^

          그런데 옴겨야 할거 같은데 어떻해야 할가요


        • 2021-09-07 19:14

          그리고 두번째 파일 열때마다 외부와 연결된게 있다고 자꾸 업데이트 하라고 뜹니다 ㅜㅜ

          2021-09-07-19-12-28.png


          • 2021-09-07 20:35

            업데이트문제는

            전체합계시트 k18:k23 수식이 문제네요.

            수식 다시 입력하시면 되겠습니다.


            • 2021-09-07 20:44

              넵 감사 합니다 *^_^*


            • 2021-09-07 22:27

              bobo 님

              혹시 다른 엑셀 파일에서 가져 오려면 어떻게 수정 해야 할까요?

              귀찮게 해드려서 죄송 합니다 *^_^*


              • 2021-09-08 08:41

                'vba 다른파일 시트값 가져오기' 검색해보시면 여러 예를 찾아 볼 수 있습니다.

                조금만 공부하시면 간단한 것은 실업무에 적용하실 수 있습니다.

                제 생각에는 다른 파일에 있는 값을 복사해서 작업파일의 4개의 시트에 각각 값으로 붙여넣기 하는 수고(?)를 하시는 것도 한 방법일 것 같습니다.

                매크로 실행 파일만 열고 실행하세요. 다른 엑셀파일이 열려 있으면 오작동 될 수 있습니다.
                 


                • 2021-09-08 18:16

                  'vba 다른파일 시트값 가져오기' 검색해보시면 여러 예를 찾아 볼 수 있습니다.
                  (네 조금더 찾아 보고 초보지만 능력자가 되도록 노력해보겠습니다 *^_^*)

                  조금만 공부하시면 간단한 것은 실업무에 적용하실 수 있습니다.

                  (네 더욱더 열심히 공부해보겠습니다.)

                  제 생각에는 다른 파일에 있는 값을 복사해서 작업파일의 4개의 시트에 각각 값으로 붙여넣기 하는 수고(?)를 하시는 것도 한 방법일 것 같습니다.

                  (수고를 할거 같으면 공부할 필요도 없고 지금 이렇게 머리가 둔하여 삽질하면서 방법을 찾으려고 노력할 필요도 없겠죠 *^_^*)

                  매크로 실행 파일만 열고 실행하세요. 다른 엑셀파일이 열려 있으면 오작동 될 수 있습니다.
                  (실행 파일만 이라고 하시는데 솔직히 어느 실행파일인지 모르겠습니다

                  만들어 주신 파일은 수정해서 잘 사용하고 있습니다 감사 합니다

                  그런데 이것이 매번 웹페이지에서 파일 다운 받아서 만들어 주신(제가 수정한) 코드를 옴겨서 실행 해주어야 하다 보니

                  다운 받은 파일에서 바로 불러 와서 하는게 맞다고 생각이 되어 문의 드린겁니다

                  제가 노력도 없이 해보지도 않고 문의 드린것이 아니란 점만 알아 주셨으면합니다

                  감사 합니다)


                • 2021-09-09 02:41

                  정석은 아니겠지만

                  해결은 되었습니다

                  짜집기에 성공 했다고나 할가요 ^^


                  Sub 요금나열_중복()

                  Dim n As Long, num As Long, i As Integer, ix As Integer, sm As Integer, smt As Integer
                  Dim rng As Range

                  Application.ScreenUpdating = False

                  Windows("한진택배(세부내역).xlsx").Activate
                  'Application.WindowState = xlMinimized
                  Sheets(1).Select
                  Sheets.Add
                  Sheets(1).Select

                  For t = 3 To 6 '발송,제주,도서,반품시트의 m열범위 작업시트의 a열에 모으기

                  n = Sheets(t).Cells(Rows.Count, "m").End(3).Row

                  Sheets(t).Range("m2:m" & n).Copy Cells(Rows.Count, "a").End(3).Offset(1)

                  Next

                  num = Cells(Rows.Count, "a").End(3).Row 'a열 값이 있는 맨 마지막셀의 행번호

                  Set rng = Range("a1:a" & num)

                  With rng

                  .RemoveDuplicates Columns:=1, Header:=xlNo '중복항목 제외

                  .Sort key1:=rng.Cells(1, 1), order1:=xlAscending, Header:=xlNo '오름차순 정렬

                  End With

                  i = Cells(Rows.Count, "b").End(3).Row

                  Range("a1").CurrentRegion.Copy '중복제외 리스트 값으로 붙여넣기
                  Range("b1").PasteSpecial xlPasteValues

                  Range("b1").Select
                  Range(Selection, Selection.End(xlDown)).Select
                  Application.CutCopyMode = False
                  Selection.Copy

                  Windows("한진택배 작업.xlsm").Activate
                  Sheets("Sheet1").Select
                  Range("A1").Select
                  ActiveSheet.Paste

                  Windows("한진택배(세부내역).xlsx").Activate
                  Sheets(1).Select

                  Range("a1").CurrentRegion.Clear '작업 범위 초기화

                  Application.DisplayAlerts = False
                  ActiveWindow.SelectedSheets.Delete
                  Application.DisplayAlerts = True

                  Sheets(1).Select

                  Windows("한진택배 작업.xlsm").Activate
                  Sheets("Sheet1").Select
                  Range("A1").Select

                  Application.ScreenUpdating = True

                  End Sub


전체 4,046
번호 카테고리 제목 작성자 작성일 추천 조회
4030 기능/도구
New 데이터 유효성 검사 문의드려요 첨부파일
다시갈꺼야 | 23:13 | 추천 0 | 조회 1
다시갈꺼야 23:13 0 1
4029 기능/도구
New 자동화 달력 공휴일 등록 시 날짜말고 메모부분 빨간색 변경이 안되서 어렵습니다. (1)
거부기 | 14:30 | 추천 0 | 조회 22
거부기 14:30 0 22
4028 문서서식
New 엑셀 CTRL+G (이동) 질문드립니다. 첨부파일 (2)
월마리아 | 03:01 | 추천 0 | 조회 29
월마리아 03:01 0 29
4027 차트/그래프
New 오빠두 간트 차트에 대한 질문이 있습니다. 첨부파일 (4) 답변완료
치킨카뤠 | 01:22 | 추천 0 | 조회 23
치킨카뤠 01:22 0 23
4026 함수/공식
New 부서 자동 배정 프로그램 완성 요청합니다. 첨부파일
승재빠 | 2021.09.25 | 추천 0 | 조회 42
승재빠 2021.09.25 0 42
4025 함수/공식
New 질문있습니다.! 중복값 표시 및 데이터 숫자 세기. 첨부파일 (1)
Barcelona | 2021.09.25 | 추천 0 | 조회 24
Barcelona 2021.09.25 0 24
4024 기능/도구
New 엑셀 종료 대화창이 이상합니다 ㅜㅜ (3) 답변완료
어제부터VBA | 2021.09.25 | 추천 0 | 조회 27
어제부터VBA 2021.09.25 0 27
4023 함수/공식
New 특정단어만 변경 도와주세요. 첨부파일 (3)
블랑블랑 | 2021.09.25 | 추천 0 | 조회 38
블랑블랑 2021.09.25 0 38
4022 문서서식
New 엑셀 느림 현상 OLE 작업 (1)
원더우먼 | 2021.09.25 | 추천 0 | 조회 32
원더우먼 2021.09.25 0 32
4021 VBA
New 체크박스 첨부파일 (1)
미리내 | 2021.09.24 | 추천 0 | 조회 30
미리내 2021.09.24 0 30
4020 함수/공식
New 조건부 함수 도움 부탁드립니다. 첨부파일 (1)
액셀 공부 | 2021.09.24 | 추천 1 | 조회 19
액셀 공부 2021.09.24 1 19
4019 차트/그래프
New 2개 슬라이서에 대한 차트 연결 문의 (1)
please | 2021.09.24 | 추천 1 | 조회 16
please 2021.09.24 1 16
4018 함수/공식
New 다른시트 값을 조건부로 출력 (3)
KT | 2021.09.24 | 추천 0 | 조회 35
KT 2021.09.24 0 35
4017 함수/공식
New vlookup 여러조건 여러개 출력 관련 질문입니다 첨부파일 (1)
바스크 | 2021.09.24 | 추천 0 | 조회 32
바스크 2021.09.24 0 32
4016 VBA
New FOR 이용하여 파일 가져오기 첨부파일 (1)
ArkGie | 2021.09.24 | 추천 0 | 조회 24
ArkGie 2021.09.24 0 24
4015 VBA
New VBA 변수넣기 (2)
kimki**** | 2021.09.24 | 추천 1 | 조회 26
kimki**** 2021.09.24 1 26
4014 차트/그래프
New 차트관련문제 (4)
콩콩이0782 | 2021.09.24 | 추천 0 | 조회 24
콩콩이0782 2021.09.24 0 24
4013 함수/공식
New max(if) 부등호 사용 질문입니다 첨부파일 (4) 답변완료
Ivan Bae ඞ | 2021.09.24 | 추천 1 | 조회 39
Ivan Bae ඞ 2021.09.24 1 39
4012 VBA
엑셀 VBA 선택영역을 이미지로 추출에서 "일괄로" 추출하는 방법 문의드립니다.
태져리 | 2021.09.23 | 추천 0 | 조회 38
태져리 2021.09.23 0 38
4011 함수/공식
VLookup 다중조건 입력_배열함수_복사 첨부파일 (8)
hiv**** | 2021.09.23 | 추천 0 | 조회 65
hiv**** 2021.09.23 0 65
4010 기능/도구
엑셀2016인데 아이콘 창이 없어요 첨부파일 (2) 답변완료
빠꾸집사 | 2021.09.23 | 추천 1 | 조회 27
빠꾸집사 2021.09.23 1 27
4009 VBA
vba MATCH함수 오류 검색하는 값이 검색범위에 포함되지 않을 때 오류
kimki**** | 2021.09.23 | 추천 0 | 조회 44
kimki**** 2021.09.23 0 44
4008 VBA
중첩 for문의 해결 (next 컨트롤 변수 참조가 잘못되었습니다) (2)
kimki**** | 2021.09.23 | 추천 0 | 조회 34
kimki**** 2021.09.23 0 34
4007 함수/공식
자동입력 관련 문의드립니다. 첨부파일 (2)
성운 | 2021.09.23 | 추천 0 | 조회 34
성운 2021.09.23 0 34
4006 피벗테이블
피벗테이블에서 '값 행 표시' 질문드립니다. 첨부파일
월마리아 | 2021.09.23 | 추천 0 | 조회 32
월마리아 2021.09.23 0 32
4005 VBA
네이버 쇼핑 댓글 가져오기 (1)
아가늑대 | 2021.09.22 | 추천 1 | 조회 47
아가늑대 2021.09.22 1 47
4004 기능/도구
엑셀 비활성화된 링크들 활성방법 (3) 답변완료
N솔 | 2021.09.22 | 추천 0 | 조회 45
N솔 2021.09.22 0 45
4003 함수/공식
(수정 재업로드) 질문 다시 올립니다! (9) 답변완료
치운 | 2021.09.22 | 추천 0 | 조회 41
치운 2021.09.22 0 41
4002 함수/공식
다음과 같이 하려면 어떤 함수를 써야할까요? 아니면 노가다해야하나요? (7)
치운 | 2021.09.22 | 추천 0 | 조회 51
치운 2021.09.22 0 51
4001 VBA
Change이벤트관련 문의사항 첨부파일 (2) 답변완료
H.B | 2021.09.22 | 추천 0 | 조회 48
H.B 2021.09.22 0 48