1、假如你要排序的工作表在sheet1，假如你的日期列在J，可以用以下代码：ActiveWorkbook.Worksheets(1).Sort.SortFields.AddKey:=Range("J3:J65535"_
),SortOn:=xlSortOnValues,Order:=xlAscending,DataOption:=xlSortNormal
WithActiveWorkbook.Worksheets(1).Sort
.SetRangeRange("A2:AL65535")
.Header=xlYes
.MatchCase=False
.Orientation=xlTopToBottom
.SortMethod=xlPinYin
.Apply
EndWith
2、后续如果有这种常用功能的VBA你可以选择录制宏，然后做一下，录制完看下VB编辑器的代码，稍作修改即可得到你想要的代码。
3、你想要大一点的区域，只要将range的区域改大就可以了。
