l转·]按姓名排序

Sub 排序() Dim ws As Worksheet Dim myRange As Range Set ws = Worksheets(1) '指定工作表 Set myRange = ws.UsedRange '指定数据区域 MsgBox "下面以第2列姓名降序排序" myRange.Sort Key1:="姓名", Order1:=xlDescending, Header:=xlYes, SortMethod:=xlPinYin '指定关键词为姓名降序排序 MsgBox "下面以第2列姓名升序排序" myRange.Sort Key1:="姓名", Order1:=xlAscending, Header:=xlYes, SortMethod:=xlPinYin ’指定关键词为姓名升序排序 Set myRange = NothingEnd Sub
更多EXCEL精彩尽在：http://www.excelpx.com/?fromuid=148343