可以用VBA处理，步骤如下：
1.多个工作表，把目录整理到sheet1中：
2.Alt+F11，并在sheet1中输入如下代码：
Sub main()
For Each sh In Sheets
k = k + 1
Cells(k, 1) = k
Cells(k, 2) = sh.Name
Next
End Sub
3.F5执行代码，关闭返回Excel，sheet1中就会出现如下目录：
右击工作表标签，选择“移动或复制工作表”，在弹出对话框中选中相应内容。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024