Sub？排序數據()
添加示例數據
範圍(" A1 ")。價值？=?"名稱"
範圍(“A2”)。價值？=?“比爾”
範圍(“A3”)。價值？=?“羅德”
範圍(“A4”)。價值？=?“約翰”
範圍(“A5”)。價值？=?“帕迪”
範圍(“A6”)。價值？=?“凱利”
範圍(" A7 ")。價值？=?“威廉”
範圍(“A8”)。價值？=?“珍妮特”
範圍(“A9”)。價值？=?《佛羅倫薩》
範圍(" A10 ")。價值？=?“艾伯特”
範圍(" A11 ")。價值？=?“瑪麗”
在排序列中選擇壹個單元格。
範圍(“A2”)。挑選
開始排序
用什麽？ActiveWorkbook。工作表(活動表。姓名)。分類
. SortFields.Clear
. SortFields.Add？Key:=Range("A2:A11 ")，？_
SortOn:=xlSortOnValues，？順序:=xlAscending，？DataOption:=xlSortNormal
。SetRange？範圍(" A1:A11 ")
。表頭？=?xlYes
。火柴盒？=?錯誤的
。定向？=?xlTopToBottom
。SortMethod？=?XL拼音
。應用
結束？隨著
MsgBox？“排序？完整。”,?VB信息
結束？潛水艇