Question

利用宏或VBA怎样实现某列自动按升序排序?

谢谢两位，但我现在又遇新的问题：1、有标题：A1姓名，B1语文，C1数学，D1英语，E1总分，F1排名。2、对F列按升序排序。3、设两个按钮：一是升序按钮，另一个是返回按钮。按下升序按钮就能按升序排名；按下返回按钮就能返回原来的排序。又劳各位大侠。谢谢。

Answer 1

无标题行，对A列按升序排序
Sub Macro1()
Range("A1").Select
Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End Sub

实际上，自己录制宏就知道了。

Answer 2

自动对第1列排序：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End If
End Sub