Execl工作簿中有很多中文工作表，如何根據拼音自動排序。謝謝妳

粘貼以下代碼並按f5鍵按拼音對當前工作簿的工作表進行排序。

Ps:模塊排序後可以刪除。

子測試()

床單。添加工作表(1)

t =張。數數

帶表(1)

對於i = 2到t

。單元格(I，1) =工作表(I)。名字

然後

Sort.SortFields.Add。單元格(1，1)

與。分類

。SetRange範圍(" A:A ")

。應用

以…結尾

對於i = 2到t

床單(。細胞(識別號1，1)。值)。移動工作表(I)

然後

申請。顯示警報=假

。刪除

申請。顯示警報=真

以…結尾

末端接頭