Vba에서 날짜별로 정렬하는 방법(예제 포함)

VBA에서 다음 기본 구문을 사용하여 날짜별로 행을 정렬할 수 있습니다.

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

이 특정 예에서는 A열의 날짜를 기준으로 A1:C10 범위의 행을 가장 오래된 것부터 최신 것 순으로 정렬합니다.

최신 날짜부터 오래된 날짜순으로 행을 정렬하려면 Order1:=xlDescending을 대신 지정할 수 있습니다.

Header:=xlYes 는 첫 번째 줄이 머리글 줄로 처리되어야 함을 지정합니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA를 사용하여 날짜별로 정렬

다양한 날짜의 매장 판매 및 환불에 대한 정보가 포함된 다음과 같은 데이터 세트가 Excel에 있다고 가정해 보겠습니다.

가장 오래된 것부터 최신 것까지 날짜별로 행을 정렬한다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

이제 행은 가장 오래된 날짜부터 최신 날짜까지 날짜별로 정렬됩니다.

최신 날짜부터 가장 오래된 날짜순으로 행을 정렬하려면 Order1:=xlDescending을 지정할 수 있습니다.

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlDescending, Header:=xlYes
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

이제 행은 최신 항목부터 오래된 항목까지 날짜별로 정렬됩니다.

참고 #1 : 이 예에서는 하나의 열을 기준으로 정렬했습니다. 그러나 여러 열을 정렬하기 위해 더 많은 키를 지정할 수 있습니다.

참고 #2 : 여기에서 VBA 정렬 방법에 대한 전체 문서를 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: 여러 열을 기준으로 시트를 정렬하는 방법
VBA:범위 내 행 수를 계산하는 방법
VBA: 열을 필터링하는 방법