다른 행을 정렬하는 방법은 VBA의 특정 행에 따라 다릅니다.

Question

내 워크 시트에는 세 개의 열이 있습니다. 나는 Point를 기반으로 다른 값을 정렬하려고합니다. 다음은 셀 값입니다.

Name  Date  Point 

Bela  3/2/12  19 
John  1/4/16  32 
Reba  9/1/10  21 
Risala 3/31/13  21 

다음과 같이 정렬하고 싶습니다. 같은 점이 발견되면 Date를 기준으로 정렬됩니다. VBA에서 어떻게이 작업을 수행 할 수 있습니까?

Name  Date  Point 

John  1/4/16  32 
Risala 3/31/13  21 
Reba  9/1/10  21 
Bela  3/2/12  19 

다음은 포인트 계산 코드입니다.

Private Sub Sum_Click() 
Dim LastRow As Long 

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
Range("C6:C" & LastRow).Formula = "=DateDif(B6, Today(),""y"")+8" 

End Sub 

Answer 1

데이터를 그림과 같이 배치하고 아래 코드 줄을 실행하십시오.

Range("A1").Sort key1:=Range("E1"), order1:=xlDescending, key2:=Range("F1"), order2:=xlDescending, Header:=xlYes 

Range("A1").Sort key1:=Range("C1"), order1:=xlDescending, key2:=Range("B1"), order3:=xlDescending, key4:=Range("D1"), order2:=xlDescending, Header:=xlYes