工作表事件，代码如下：
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Range("A1:A1000").Sort Key1:=Range("A1"), Order1:=xlDescending End IfEnd Sub
用表格事件处理
