Sub 按aa工作表A列的内容排列工作表标签顺序()
    Dim i%, str1$
    i = 1
    Sheets("aa").Select
    Do While Cells(i, 1).Value <> ""
        str1 = Trim(Cells(i, 1).Value)
        Sheets(str1).Select
        Sheets(str1).Move after:=Sheets(i)
        i = i + 1
        Sheets("aa").Select
    Loop
End Sub

Sub 按aa工作表A列的内容排列工作表标签顺序()
    Dim i%, str1$
    i = 1
    Sheets("aa").Select
    Do While Cells(i, 1).Value <> ""
        str1 = Trim(Cells(i, 1).Value)
        Sheets(str1).Select
        Sheets(str1).Move after:=Sheets(i)
        i = i + 1
        Sheets("aa").Select
    Loop
End Sub