execl自动生成Sheet目录
右击工作表名称—【查看代码】,打开VBA代码编辑器,输入以下代码:
Sub GetSheetName()
Dim sht As Worksheet
Dim i As Integer
i = 1
For Each sht In Sheets
Cells(i, 1) = sht.Name
i = i + 1
Next
End Sub
然后点击绿色运行按钮
右击工作表名称—【查看代码】,打开VBA代码编辑器,输入以下代码:
Sub GetSheetName()
Dim sht As Worksheet
Dim i As Integer
i = 1
For Each sht In Sheets
Cells(i, 1) = sht.Name
i = i + 1
Next
End Sub
然后点击绿色运行按钮