復雜的問題還是要用vba代碼解決。alt+f 11-雙擊本書-打開工作簿的代碼編輯框。
復制以下代碼。
子毫升()
Dim sht作為工作表,k & amp
[答:答] = " "
清除a列數據。
[a1] = "目錄"
k = 1
對於工作表中的每個sht
遍歷工作簿中的每個工作表。
k = k + 1
累積k值
Cells(k,1) = sht。名字
將工作表名稱依次放入表格的A列。
然後
末端接頭
在開發人員選項中插入壹個按鈕。什麽!為什麽妳的軟件沒有這個標簽頁?看到我的下壹次經歷,妳就會知道如何讓它出現。
繪制按鈕框後,軟件會讓您為其指定宏代碼。當然,您選擇生成壹個目錄。
點擊獲取目錄(我改名了,或者給我留言),目錄就神奇的產生了。
對目錄進行篩選和排序,或者手動排序。
然後在代碼編輯框中輸入這些代碼。
子排序表()
Dim sht作為工作表,shtname$,i & amp
Set sht = ActiveSheet
將變量sht設置為當前活動的工作表,即目錄。
對於i = 2到sht。單元格(行。計數,1)。結束(3)。排
遍歷工作表A列中的數據,A1除外。
shtname = sht。單元格(I,1)
將a列的值賦給字符串變量shtname。
工作表(shtname)。移動到:=張(i - 1)
依次移動工作表。
然後
噓。使活動
重新激活目錄。
末端接頭
然後繪制壹個按鈕來指定sortsheet。
這是更改按鈕名稱後發生的情況。按下按鈕。
神奇的事情發生了,工作表實際上改變了順序。