求大神指教

'也没图，自己修改。可以把表格读人数组后排序。
Option Explicit
Sub test()
　Dim arr, i, j, t
　arr = Split("2017/1/20 2016/1/3 2014/1/11 2017/1/30 2015/1/16")
　MsgBox "排序前:" & vbNewLine & Join(arr, vbNewLine)
　For i = 0 To UBound(arr) - 1
　　For j = i + 1 To UBound(arr)
　　　If Val(Split(arr(i), "/")(2)) > Val(Split(arr(j), "/")(2)) Then
　　　　t = arr(i): arr(i) = arr(j): arr(j) = t
　　　End If
　Next j, i
　MsgBox "排序后:" & vbNewLine & Join(arr, vbNewLine)
End Sub