在VBA编程时，经常会对表格内容进行排序，为了方便对不同需求下的内容排序，编制了下面这个函数，此函数可以根据给定的列名称（A、B、C……），或是列的标题（“序号”、“姓名”、“年龄”……）进行排序，并且可以指定是升序或是降序。 本函数可以设置需要排序的开始行（标题行），默认为有标题行，默认为所有的列全部参与排序，表格的全部列数一般不超过26列。 本函数暂不支持对多列同时排序，有兴趣的可以对col_Name进行解析，并逐个添加排序列：Ws_Rec.Sort.SortFields.Add，可以实现多列排序。
引用方法： Sort_Ws ActiveWorkbook.ActiveSheet, “A”, , xlDescending
Function Sort_Ws(Ws_Rec As Worksheet, Col_Name, Optional Row As Integer = 1, Optional Sort As Integer = xlAscending) '排序 按照名称 Dim Last_Row As Integer Dim Last_Col As Integer On Error GoTo err Sort_Ws = True Last_Row = Ws_Rec.UsedRange.Rows(Ws_Rec.UsedRange.Rows.Count).Row Last_Col = Ws_Rec.UsedRange.Columns(Ws_Rec.UsedRange.Columns.Count).Column If Sort <> xlAscending Then Sort = xlDescending If Not Col_Name Like "[a-zA-Z]" Then Set Col_Name = Ws_Rec.Range(Row & ":" & Row).Find(Col_Name, lookat:=xlWhole) If Not Col_Name Is Nothing Then Col_Name = Col_Name.Column Col_Name = Chr(64 + Col_Name) End If 'Ws_Rec.Columns(Col_Name & ":" & Col_Name).Select Ws_Rec.Sort.SortFields.Clear Ws_Rec.Sort.SortFields.Add Key:=Range(Col_Name & Row) _ , SortOn:=xlSortOnValues, Order:=Sort, DataOption:=xlSortNormal With Ws_Rec.Sort .SetRange Range("A" & Row & ":" & Chr(64 + Last_Col) & Last_Row) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Exit Function err: Sort_Ws = err.Number & "_" & err.Description End Function