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

VBA

작성자

루나틱

작성일

2021-01-03 15:35

조회

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

루나틱

회원등급 : 새싹등급

포인트 : 84 EP

총질문 : 2 개 (마감율 : 100%)

채택답변 : 0 개

게시글

전체 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
오빠두엑셀
게시글보기 댓글보기
[채택답변: 166개]

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
```
제시해드린 답변이 도움이 되셨길 바랍니다. 감사합니다.

« 안녕하세요 VBA 코드를 이용해서 차량 출입을 적는 프로그램을 만들고 있습니다.

같은 날짜의 개수 구하기 »

목록보기

전체 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