Sub 按钮18_单击()Application.ScreenUpdating = FalseFor Each sh In Sheets If sh.Name Like "*班文" Then sh.Activate Range(Cells(2, 1), Cells([a65536].End(xlUp).Row, "t")).Sort key1:=[m2], order1:=2, header:=xlYes, key2:=[r2], order2:=2 End If Next Sheets("113班文").Activate Application.ScreenUpdating = TrueEnd Sub是这个意思??附件:abc.rar