自动生成excel表格的目录页----小便利

注：可能不适合wps表格

1. 在所有的sheet页前面新建一个sheet页，改名为目录

2. 在sheet页“目录”这个sheet名字上右击-查看代码，将一下代码复制，运行，就可将所有的sheet页的名字生成目录

获取excel的所有sheet页名

在excel中新建一个新的sheet，右击点击该sheet-查看代码
运行
Sub listsht()
Dim i&
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub

还可以获取每个sheet页中某个确定的单元格的数据
Sub listsht()
Dim i&
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Cells(i, 1) = Sheets(i).Cells(2, 2) 获取第二行的第二列的单元格数据
Next
End Sub