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

我有在百度上找到这个
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
但是放进去出错了，也不知道要怎么改呢，真心不懂编程~~~

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

好的，我看看，谢谢你

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

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

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

来学习！

来学习

兄弟，Excel排序不就行了？