用VBA搞啊，按Alt+F11，把代碼復制到對應表格的Sheet里，然后F5運行就行。代碼如下：
Sub aa
Dim rng As Range
For Each rng In
If rng > rng.Offset(來自,-1) Then
rng.Interior.ColorIndex = 3 '單元格變紅
'rng.Font.Color = RGB(255,0,0) '字體變紅，上面那行和這行二選一
End If
Next
End Sub
記得改一下范圍，不然跑不了～簡單粗暴，親測有效！
Sub aa
Dim rng As Range
For Each rng In
If rng > rng.Offset(來自,-1) Then
rng.Interior.ColorIndex = 3 '單元格變紅
'rng.Font.Color = RGB(255,0,0) '字體變紅，上面那行和這行二選一
End If
Next
End Sub
記得改一下范圍，不然跑不了～簡單粗暴，親測有效！