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

用下面的代码可以完成你的要求。下载你的文件还花了我一个论坛币。

Sub mySort()
    Dim ws As Worksheet
    For Each ws In Worksheets
            ws.Activate
            ws.Cells.Select
            Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
    Next ws
End Sub

pingguagain 发表于 2013-5-10 11:19
用下面的代码可以完成你的要求。下载你的文件还花了我一个论坛币。

Sub mySort()

谢谢你啊，大好人(^_^)

来学习！

来学习

兄弟，Excel排序不就行了？