office 数据如何实现宏操作的归类

Question

本帖最后由 yangdanjun 于 2010-06-24 22:33:20 编辑

Answer 1

'vba
Sub Macro1()
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
End Sub

Answer 2

'比如楼主想把 [A3:H102] 这８列100行，以A列为关键字升序排序：
Sheet1.Range("A3:H102").Sort Sheet1.Range("A:A"), header:=xlNo, OrderCustom:=1, Orientation:=xlTopToBottom