请问如何实现excel多张工作表sheet按第一列日期排序，而第二列的数字也随着变化呢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请问如何实现excel多张工作表sheet按第一列日期排序，而第二列的数字也随着变化呢，类似这样的数据，有非常多的工作表，这里以三个为例 工作表.xls (16.5 KB)

2013-5-9 19:42:25 上传

谢谢了

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL sheet 如何实现 exce xcel excel 数字 工作表 如何

筛选或者高级筛选就行吧

这时候百度比论坛好用，这样的问题很少会答的。

呵呵，我也想知道

没看懂你的意思。如果要对一个表作排序操作，首先要全选表中的数据，然后作“自定义排序”就可以了。如果你的表不是很多，一个个做就行了。如果表太多了，可以编一个VBA小程序遍历所有表。

pingguagain 发表于 2013-5-9 20:03
没看懂你的意思。如果要对一个表作排序操作，首先要全选表中的数据，然后作“自定义排序”就可以了。如果你 ...

恩，有很多SHEET表，第一列都是日期，第二列都是价格，然后想快速对这些表按第一列日期升序排列，就是不知道怎么用VBA编程，能不能麻烦您帮我编一个呢，太感谢了

yeyu1989 发表于 2013-5-9 19:50
筛选或者高级筛选就行吧

我同时选中多个SHEET，筛选就变成灰色的了，不能按

zwj110 发表于 2013-5-9 19:53
这时候百度比论坛好用，这样的问题很少会答的。

我有在百度上找到这个
Sub PaiXu()

Dim SheetNumber As Double

For SheetNumber = 1 To 8 '如果有50个子表，就把8改成50即可
    Sheets(SheetNumber).Select
    Columns("A:A").Select
    'ActiveWorkbook.Worksheets(SheetNumber).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(SheetNumber).Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(SheetNumber).Sort
        .SetRange Range("A2:F50") '修改该行中"A2：F50"的数值可改变排序范围
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next

End Sub
但是放进去出错了，也不知道要怎么改呢，真心不懂编程~~~

tracy272523 发表于 2013-5-9 22:21
我有在百度上找到这个
Sub PaiXu()

这个可以不需要编程，这个具体问题我没做过。但是当初我研究另外几个问题的时候，用到excel的数据透视表功能。里面有一块就有介绍到类似问题。 你可以查查数据透视表功能。也可以直接看数据透视表的教学视频，百度就有。

zwj110 发表于 2013-5-9 22:36
这个可以不需要编程，这个具体问题我没做过。但是当初我研究另外几个问题的时候，用到excel的数据透视表功 ...

好的，我看看，谢谢你