如何在上升和降序中以Excel中的字母順序排列選項卡

該教程顯示瞭如何通過使用VBA代碼和Workbook Manager工具快速按字母順序排序Excel工作表。

Microsoft Excel提供了許多快速簡便的方法來按字母順序排列列或行。但是，只有一種方法可以重新排列工作表 - 將它們拖到表欄上的所需位置。當涉及到一個非常大的工作簿中的字母表標籤時，這可能是一種漫長而錯誤的方式。尋找節省時間的替代方案？只有兩個：VBA代碼或第三方工具。

• 使用VBA中的Excel中的字母順序排列的選項卡
  • 從A到Z按字母順序排序選項卡
  • 從z到a排列表
  • 在上升或降序中的字母表Excel選項卡
• 用工作簿經理按字母順序排序標籤

如何使用VBA在Excel中字母順序排列的選項卡

在下面，您會找到三個VBA代碼示例，以根據用戶的選擇對Excel片表上升，下降以及任一方向。

暗示您在VBA有一定的經驗，我們只會概述在工作表中添加宏的基本步驟：

1. 在您的Excel工作簿中，按Alt F11打開視覺基本編輯器。
2. 在左窗格上，右鍵單擊此Workbook ，然後單擊插入>模塊。
3. 將VBA代碼粘貼到代碼窗口中。
4. 按F5運行宏。

有關詳細的分步說明，請查看如何在Excel中插入和運行VBA代碼。

提示。如果要保留宏以進行進一步使用，請確保將文件保存為Excel宏觀啟用的工作簿（.XLSM）。

另外，您可以下載我們的示例字母表Excel選項卡工作簿，如果提示，請啟用內容，並直接從那裡運行所需的宏。該工作簿包含以下宏：

• tabsending-從A到Z按字母順序排序。
• TABSDESCENDEND-以相反順序排列床單，從z到A。
• Alphabetizetabs-在兩個方向上排序表，上升或下降。

在下載示例工作簿並在您的Excel中打開，請打開自己的工作簿，在該工作簿中，您想在其中字母表選項卡，按Alt F8 ，選擇所需的宏，然後單擊“運行” 。

從A到Z按字母順序排序Excel選項卡

這個小宏將床單在當前的工作簿中以升序字母數字順序排列，第一個工作表的名稱以數字開頭，然後是從a到z的床單。

sub tabSascending（） for i = 1 to application.sheets.counts.counts j = 1 to application.sheets.counts.count-1如果ucase $（application.sheet.sheets.neets（j）.name） > ucase $（ application.sheets.sheets （j 1 ） .name .name .name .name。結束子

將Excel選項卡從z到a

如果您想按降序字母數字（z到a，然後使用數字名稱）對床單進行排序，請使用以下代碼：

i = 1的sub sub tabsdescending（） to application.sheets.counts.counts.spapplicat.sheets.counts.count -1如果ucase $（application.sheet.sheets.neets（j）.name）ucase $（application.sheets.sheets（j 1 ） .name .name .name .neet.sheets.sheets （ j ）。結束子

字母順序排列或下降

該宏使您的用戶可以決定如何在給定的工作簿中對工作表進行分類，該工作表從A到Z或相反的順序按字母順序排列。

由於Excel VBA中的標準對話框（MSGBox）僅允許從少數預定義的按鈕中選擇，因此我們將使用三個自定義按鈕創建自己的表單（用戶形）： a至z ， z至a ，並取消。

為此，打開Visual Basic編輯器，右鍵單擊此Workbook ，然後單擊插入>用戶形式。將您的表單從順序命名，然後向其添加4個控件：標籤和三個按鈕：

接下來，按F7 （或雙擊表單）打開代碼窗口並粘貼以下代碼。代碼截斷按鈕點擊並為每個按鈕分配一個唯一標籤：

private sub commandbutton1_click （ ） me.tag = 1 me 。​​

取決於用戶是將A到Z還是Z到您的表單上的按鈕，請按字母順序排序（默認情況下選擇）或下達字母順序排列；或關閉表格，在取消時什麼也不做。這是通過以下VBA代碼完成的，您可以通過插入>模塊以通常的方式插入。

sub字母（） dim sortorder as integer sortOrder = showuserform = sortOrder = 0 ，然後退出x = 1的x = 1的subs.counts.counts.counts.counts.counts.counts.counts.counts.count -1如果sortOrder = 1 ，則如果Ucase $ $ $ $ $ $（如果ucase $（application.neets（y）.name）.name .name .name） > ucase $（applip.aeply.spapplice.sheaets.sheeets.sheeets.neet.neet.neet.neeet。 1）結束如果elseif sortorder = 2結束，則如果ucase $（application.sheet.sheets（y）.name） ucase $（ application.sheet.sheets.neets （ y 1） .name ） ，則sheets（y ） .move之後。結束功能

如果您對VBA不太滿意，則可以只需下載我們的示例工作簿即可以字母表的標籤，將其與您自己想要對選項卡進行排序的文件一起在Excel中打開，然後從工作簿中運行Alphabetizetabs宏：

選擇首選排序順序，例如A到Z ，並觀察結果：

提示。使用VBA，您還可以創建Excel工作表的副本。該代碼可在此處可用：如何使用VBA複製Excel。

如何使用Ultimate Suite按字母順序排列Excel選項卡

我們最終的Excel套件的用戶不必與VBA一起擺弄 - 他們擁有一個多功能工作簿經理：

將此工具添加到您的Excel功能區中，單擊單個按鈕即可完成字母表選項卡！

如果您想探索這一點，並且有70個Excel的專業工具，則可以在此處下載我們的Ultimate Suite的試用版。

我感謝您閱讀，並希望下週在我們的博客上見到您！

以上是如何在上升和降序中以Excel中的字母順序排列選項卡的詳細內容。更多資訊請關注PHP中文網其他相關文章！