vba语言如何对excel的数据按日期排序。求具体代码

如题所述

推荐答案推荐于2016-03-14

1、工具-宏-录制新宏-确定
2、在EXCEL中选择数据进行排序
3、工具-宏-停止录制
4、工具-宏-Visual Basic编辑器-双击左侧栏里的“模块一”，可根据需要修改程序追问

.Header = xlYes

.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-51
您好，能解读下每句话的意思吗？我是新手。。什么都不懂

追答

With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort 'Sheet1中选择:数据-->排序

.Header = xlYes '首行为列标题:是
.MatchCase = False '区分大小写:否
.Orientation = xlTopToBottom '方向:从上到小
.SortMethod = xlPinYin '筛选顺序:按拼音
.Apply '确定
End With '结束

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/DInZ0DjBjrjDjrD0ee0.html

其他回答

第1个回答 2014-07-10

相似回答

excel vba 按日期排序答：1、假如你要排序的工作表在sheet1，假如你的日期列在J，可以用以下代码： ActiveWorkbook.Worksheets(1).Sort.SortFields.Add Key:=Range("J3:J65535" _), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets(1).Sort .SetRange Range("A2:AL65535...

excel vba日期排序答：用自动筛选方法。将sheet1的a例是日期和其他几例名称选中→数据→筛选→点击自动筛选→点sheet1的a例日期三角箭头→点升序排列→后面的数据也和日期相应变动。效用图如下：

求一段excel vba代码答：Sub ModifyExcelSheet()Dim ws As Worksheet Dim lastRow As Long ' 指定操作的工作表 Set ws = ThisWorkbook.Sheets("Sheet1")' 1. 给 E 列升序排序 With ws lastRow = .Cells(.Rows.Count, "E").End(xlUp).Row .Range("A1:H" & lastRow).Sort Key1:=.Range("E1"), Order1:=x...

Excel VBA 怎么排序答：下载文件：shilie.xlsx|看例子吧。。。需要定义一个公式。。a：=LARGE((Sheet1!$A$1:$A$15=Sheet1!A1)*(Sheet1!$B$1:$B$15),ROW(INDIRECT("1:" & COUNTIF(Sheet1!$A$1:$A$15,Sheet1!A1)))再在C1输入：=match(B1,a,0)下拉即可。

大家正在搜

excel按日期排序不对 vba对数据进行排序 excel用vba排序实例 excel自动排序vba excel vba 自定义排序 excel vba 随机排序 vba将某一列数据排序 excelvbarange赋值 vba对列排序