作者：乔山办公网日期：
返回目录：excel表格制作
无标zhidao题行，对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
实际上，自己录制宏就知权道了。
Dim endrow As Integer, endcol As Integer
endrow = Sheet1.Range("A65536").End(xlUp).Row
endcol = Sheet1.Range("A1").End(xlToRight).Column
Sheet1.Sort.SortFields.Clear
Sheet1.Sort.SortFields.Add Range("A1:" & "A" & endrow), xlSortOnValues, xlDescending, xlSortNormal
With Sheet1.Sort
.SetRange Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(endrow, endcol))
.Header = xlYes
.SortMethod = xlPinYin
.Apply
End With
可以的，这个私信联系，今天就可以给你做完。
With Cells(1, A).CurrentRegion 'A为第几列，不过使zd用时要换成数字版（如A列应写成1）
.Sort Key1:=.Cells(1, A), order1:=xlAscending, Header:=xlYes
End With
第一行为列名称，不参与权排序