excel高手请进，关于函数、代码、宏的问题

建议：
1、在条件中直接用Today()函数，A1就不占用了；
2、条件1改成：介于 "=Today()-10" 和 "=Today()-20"
3、条件2改成：小于 "=Today()-20"

我把事件函数改成这样了，只看前13列有否变化，应该更合理些：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column < 14 Then
Cells(Target.Row, 14) = Date
End If
End Sub

直接修改14列的日期可以看到效果。

EXCEL中,按ALT+F11, 打开VB编辑器
点菜单中的"插入"——"模块"
然后把下面的代码贴进去..

如果数据在A列, 请在B列输入公式 =fch(a1)
然后向下拉,直到全部B列都有和A列对应的公式,
然后对B列进行排序就OK了..

模块代码如下:

Function fch(text) As String
Dim i%, j%, m%
i = Len(text)
fch = ""
For j = 1 To i
m = Asc(Mid(text, j, 1))
If m <> -24128 And m <> -23636 And m <> -22846 Then
If m < 0 Or m > 255 Then
fch = Mid(text, j, 1)
Exit Function
End If
End If
Next
End Function