excel表格目录怎么调顺序

1.excel 的工作表按目录中的顺序自动排序

'使用VBA处理，代码如下：

Sub 指令工作表排序（）

'请先选择工作表目录所在单元格区域运行

Dim cel As Range

On Error Resume Next

With ActiveWorkbook

k = .ActiveSheet.Name

n = .Sheets.Count

For Each cel In Selection

.Sheets(cel.Value).Move after:=.Sheets(n)

Next

.Sheets(k).Activate

End With

End Sub

2.怎么给excel按目录顺序批量插入工作表

假设有一个名为“目录”的工作表，在其A1:A10中有各个具体的目录名字。

按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。 Sub 插入目录（） Sheets（"目录"）.Select Sheets(1).Select For i = 1 To 10 '根据10个目录生成10个工作表 Set n = Sheets.Add Sheets(n.Index).Move after:=Sheets(i) n.Name = Sheets（"目录"）.Cells(i, 1) Next Sheets（"目录"）.Move Before:=Sheets(1) End Sub 回到EXCEL窗口，按“工具-宏-宏”，在其中选“插入目录”宏确定即可。