国产69精品久久久久乱码,被强到爽的邻居人妻完整版

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

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

將Excel選項卡從z到a

字母順序排列或下降

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

首頁

專題

excel

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

Jack chen

Apr 07, 2025 am 10:23 AM

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

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

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

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

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

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

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

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

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

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

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

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

這個小宏將床單在當前的工作簿中以升序字母數(shù)字順序排列，第一個工作表的名稱以數(shù)字開頭，然后是從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。結(jié)束子

將Excel選項卡從z到a

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

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 ）。結(jié)束子

字母順序排列或下降

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

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

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

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

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

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

取決于用戶是將A到Z還是Z到您的表單上的按鈕，請按字母順序排序（默認情況下選擇）或下達字母順序排列；或關(guān)閉表格，在取消時什么也不做。這是通過以下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）結(jié)束如果elseif sortorder = 2結(jié)束，則如果ucase $（application.sheet.sheets（y）.name） ucase $（ application.sheet.sheets.neets （ y 1） .name ），則sheets（y ） .move之后。結(jié)束功能

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

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