用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
记得改一下范围，不然跑不了～简单粗暴，亲测有效！