如何sorting其他行取决于VBA中的特定行？

在我的工作表中，有三列。 我想根据Point对其他值进行sorting。 这里是单元格的值。

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

我想sorting如下。 如果find相同的点，则会根据date进行sorting。 我如何在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