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

Question

如题所述

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

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