excel中数据筛选

可以编写一个宏来完成该功能：
Sub changecolor()
If ActiveSheet.Cells(2, 1) > ActiveSheet.Cells(1, 1) Then
ActiveSheet.Cells(1, 2) = "1"
Range("A1:B1").Select
Selection.Font.ColorIndex = 3
End If
End Sub
其中(1, 1)(1, 2)(2, 1)分别表示A1、B1、A2单元格，可以修改为你相应的单元格，“A1:B1”为需要变色的区域，视具体情况而定。比较含有日期的两个单元格，其中当前日期可以输入：=today(),再与失效日期进行比较，如果失效日期大于当前日期，则将选中区域变为红色。

选中失效日期那一列,假设这一列是A列。菜单:格式——条件格式——选公式，在后面输入=A1<now()
然后设一下你想要的格式确定就行了

这好象不可能,除非你手动了,自动是不可能的