如何排序其他行取决于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