excel VBA按字母表順序對工作表進行排序

excel VBA按字母表順序對工作表進行排序

如果工作簿內有大量以字母開頭的工作表，要將這些工作表按照字母表的順序進行排序，可以用下面的VBA代碼來實現。按Alt+F11，打開VBA編輯器，單擊菜單“插入→模塊”，在代碼窗口中粘貼下列代碼并執行。

Sub 按字母表排序工作表()Dim i As Integer, j As Integer, n As IntegerOn Error Resume Nextn = Sheets.CountIf n = 1 Then EndFor i = 1 To n – 1For j = i + 1 To nIf UCase(Sheets(j).Name) < UCase(Sheets(i).Name) ThenSheets(j).Move Before:=Sheets(i)End IfNext jNext iEnd Sub

上述代碼是按照字母表升序來對工作表進行排序的，如果要按降序排序，將代碼中的小于號改為大于號即可。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。