如何對其他行進行排序取決於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 

我想排序如下。如果找到相同的點，則會根據日期進行排序。我如何在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