vba를 통해 시트를 합칠떄 데이터를 올림/내림차순으로 정리되어 나오게 하는 방법은 없나요?

VBA
작성자
루나틱
작성일
2021-01-03 15:35
조회
51

입항시간을 기준으로 올림차순 정리하고싶은데.. 방법을 모르겠습니다.
그리고 시트가 새로 생기면 칸이 작아서 데이터가 다 표시가 안됩니다...ㅜㅜ

전체 3

  • 2021-01-05 05:42

    안녕하세요.

    예제파일 기준 아래 명령문을 사용하시면 입항시간 기준 오름차순으로 정렬됩니다.

    Sub 정렬()
    
    With ActiveWorkbook.Worksheets("PNC").ListObjects("Table_0").Sort
    .SortFields.Clear
    .SortFields.Add2 Key:=Range("Table_0[[#All],[입항(예정)일시]]"), SortOn:=xlSortOnValues, Order:= _
    xlAscending
    .Apply
    End With
    
    End Sub

    Range.Sort 함수에 대한 설명은 아래 마이크로소프트 레퍼런스 링크를 참고해보세요. 🙂

    https://docs.microsoft.com/en-us/office/vba/api/excel.range.sort

    답변이 도움이 되셨길 바랍니다. 감사합니다.


    • 2021-01-05 10:44

      답변감사합니다 선생님
      첨부파일은 퀵VBA3강 시트합치기를 보고 따라서 만든 매크로입니다.
      주신 명령문을 사용해봤는데, 5개의 쿼리시트는 현재 자동으로 오름차순정렬이 되어있는상태입니다.
      제가 명령문을 잘못 붙여 넣은건지,목표로했던 합쳐졌을때 나오는 시트는 여전히 오름차순으로 나오지가 않습니다.
      새로 생성되는 시트에서 오름차순이 되려면 어떻게 해야 할까요...

      첨부파일 : 실시간-배-스케쥴-매크로.xlsm


  • 2021-01-06 08:53
    채택된 답변

    새로 생성되는 시트에 필터를 적용하시려면, 명령문을 아래와 같이 수정해보세요.
    새 시트를 시트 개체로 바꿔주시면 됩니다.

    Sub 정렬()
    
    With 새시트.ListObjects(1).Sort
    .SortFields.Clear
    .SortFields.Add2 Key:=Range(새시트.ListObjects(1).Name & "[[#All],[입항(예정)일시]]"), SortOn:=xlSortOnValues, Order:= _
    xlAscending
    .Apply
    End With
    
    End Sub

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


전체 2,136
번호 카테고리 제목 작성자 작성일 추천 조회
2128 기능/도구
New 엑셀 하이퍼링크 보안 제거 방법 첨부파일 (2)
hjy**** | 2021.01.21 | 추천 0 | 조회 20
hjy**** 2021.01.21 0 20
2127 함수/공식
New 제한된 금액에서 등급에 따라 인원별 인센티브 계산하기(고수님들 도움 부탁드립니다.ㅠㅠ) 첨부파일
퇴근하고싶다 | 2021.01.21 | 추천 0 | 조회 19
퇴근하고싶다 2021.01.21 0 19
2126 함수/공식
New 일자 및 총매출액 변동시 타sheet에 일자, 총매출액 자동추가되는 방법 첨부파일
마운틴 | 2021.01.21 | 추천 0 | 조회 15
마운틴 2021.01.21 0 15
2125 VBA
New 셀선택영역 vba 질문입니다. (2)
이하늘 | 2021.01.21 | 추천 0 | 조회 20
이하늘 2021.01.21 0 20
2124 차트/그래프
New 상위10위 제품 그래프, 한눈에 깔끔하게 만드는 방법 첨부파일 (1)
눈물젖은빵 | 2021.01.21 | 추천 0 | 조회 18
눈물젖은빵 2021.01.21 0 18
2123 함수/공식
New 엑셀 함수 관련 질문드립니다.(vlookup 내림차순 ?, 중복된 값 하나만 나타내기 ?) (1)
흙콩 | 2021.01.21 | 추천 0 | 조회 32
흙콩 2021.01.21 0 32
2122 함수/공식
New 고유번호 할당 (1) 답변완료
두부 | 2021.01.21 | 추천 1 | 조회 32
두부 2021.01.21 1 32
2121 VBA
New GetStockNo 함수의 다중적용이 가능한가요..? (4)
robot**** | 2021.01.21 | 추천 0 | 조회 25
robot**** 2021.01.21 0 25
2120 VBA
New 매크로가 어떻게 될까요 첨부파일 (2)
엑셀초보 | 2021.01.21 | 추천 0 | 조회 31
엑셀초보 2021.01.21 0 31
2119 VBA
New 단추나 하이퍼링크 눌러서 , 윈도우 프로그램 실행시키게 하는 방법 있나요? (3)
네비악 | 2021.01.21 | 추천 0 | 조회 22
네비악 2021.01.21 0 22
2118 함수/공식
New 월별 지출 현황 자동 입력 첨부파일 (6)
gusi**** | 2021.01.21 | 추천 0 | 조회 34
gusi**** 2021.01.21 0 34
2117 함수/공식
New 여러조건을 만족하는 인원 수 구하는 방법 첨부파일 (2) 답변완료
블링블링 | 2021.01.21 | 추천 0 | 조회 35
블링블링 2021.01.21 0 35
2116 함수/공식
New 금일 검침 전 검침 계산방법 첨부파일 (4) 답변완료
우덜 | 2021.01.21 | 추천 0 | 조회 35
우덜 2021.01.21 0 35
2115 VBA
New [코드관련질문] 01강. 엑셀 매크로 자동화를 위한 필수 모듈! - 파일선택창 모듈 만들기 (1)
문정동 청개구리 | 2021.01.21 | 추천 0 | 조회 34
문정동 청개구리 2021.01.21 0 34
2114 함수/공식
New 엑셀 시트간 연동 질문입니다 2번째.. ㅠㅠ 첨부파일 (4) 답변완료
나구짱 | 2021.01.20 | 추천 1 | 조회 35
나구짱 2021.01.20 1 35
2113 함수/공식
New 일치하는 값 제외 나머지 전체 합계 함수 관련, 응용 함수 사용 방법 첨부파일 (2) 답변완료
눈물젖은빵 | 2021.01.20 | 추천 0 | 조회 31
눈물젖은빵 2021.01.20 0 31
2112 피벗테이블
New 피벗테이블 차트 삽입 시 동적 범위 설정 관련 문의 (4) 답변완료
새신랑 | 2021.01.20 | 추천 0 | 조회 40
새신랑 2021.01.20 0 40
2111 함수/공식
New 질문이 있습니다(기초함수) (2)
새우깡 | 2021.01.20 | 추천 0 | 조회 28
새우깡 2021.01.20 0 28
2110 VBA
New 엑셀 VBA 를 이용한 웹크롤링 방법
코코 | 2021.01.20 | 추천 0 | 조회 35
코코 2021.01.20 0 35
2109 함수/공식
New GetStockNo을 추가기능에 적용 시켰음에도 #value! 만 뜹니다. (1)
robot**** | 2021.01.20 | 추천 0 | 조회 22
robot**** 2021.01.20 0 22
2108 함수/공식
New 특정 형식의 자료만 자동 추출하는 함수 구성방법 (3)
마운틴 | 2021.01.20 | 추천 3 | 조회 47
마운틴 2021.01.20 3 47
2107 함수/공식
New 일자별 매출합계 변동시 일별매출합계표에 일자별 합계 자동추가 방법 (2)
마운틴 | 2021.01.20 | 추천 0 | 조회 29
마운틴 2021.01.20 0 29
2106 VBA
New VBA 속도 향상시 도형 새로고침 안되는 문제 (2)
와따나 | 2021.01.20 | 추천 0 | 조회 26
와따나 2021.01.20 0 26
2105 VBA
New 시트 합치기 (2) 답변완료
ber217an | 2021.01.20 | 추천 0 | 조회 22
ber217an 2021.01.20 0 22
2104 문서서식
New 조건부서식 텍스트처리 (2)
두부 | 2021.01.20 | 추천 0 | 조회 30
두부 2021.01.20 0 30
2103 함수/공식
New 마지막자리수 올림이나 반올림 없이 버리는 방법 문의 (6) 답변완료
스페셜라떼 | 2021.01.20 | 추천 0 | 조회 27
스페셜라떼 2021.01.20 0 27
2102 함수/공식
New counterif 첨부파일 (6) 답변완료
bethegeek | 2021.01.20 | 추천 0 | 조회 30
bethegeek 2021.01.20 0 30
2101 기능/도구
New 단축키를 변경할 수는 없나요? (2) 답변완료
라이프툴즈 | 2021.01.20 | 추천 0 | 조회 26
라이프툴즈 2021.01.20 0 26
2100 함수/공식
New VLOOKUP 사용이 잘못되었나요? 고수님들 함 봐주세요... 첨부파일 (1)
천~영 | 2021.01.20 | 추천 0 | 조회 36
천~영 2021.01.20 0 36
2099 함수/공식
New 인덱스, 매치?? 어떤거 쓰나요? 첨부파일 (4) 답변완료
ㅋㅋㅋㅋ | 2021.01.20 | 추천 1 | 조회 41
ㅋㅋㅋㅋ 2021.01.20 1 41