Sub 工作表排序() Dim Ar, I%, J%, N%, Tp N = Sheets.Count ReDim Ar(1 To N) For I = 1 To N Ar(I) = Sheets(I).Name Next For I = 1 To N - 1 For J = I + 1 To N If Ar(I) > Ar(J) Then Tp = Ar(I) Ar(I) = Ar(J) Ar(J) = Tp End If Next J, I For I = 1 To N - 1 Sheets(Ar(I)).Move Sheets(I) Next End Sub本回答被提问者采纳