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