根据日期，每天排名靠后的前三标红怎么做

为什么标红 ，新建一个表格，提取显示你想要的内容不是更好？

条件格式呗！

对日期排序，然后增加一个辅助列，进行排名（升序），然后再利用条件格式添加颜色。

自定义函数+条件格式
Function irank(ByVal rng As Range, rngs As Range, rngss As Range)
Dim arr As Variant
Dim r As Integer
Dim i As Integer
Dim n As Integer
Dim x As Integer
x = Cells(rng.Row, rngss.Column)
arr = rngs
brr = rngss
For i = 1 To UBound(arr, 1)
If arr(i, 1) <> rng Then
brr(i, 1) = ""
End If
Next i
irank = Application.WorksheetFunction.Small(brr, 3) '排名第三
End Function
条件格式：
=$T2<=irank($A2,$A$2:$A$2000,$T$2:$T$2000)