勾选开发工具,在要输出的表下,点查看代码
在窗口输入以下代码:
Sub a()
For Each sh In Sheets
k = k + 1
Cells(k, 1) = sh.Name
Next
End Sub
然后点运行
工作表的名称就拷贝到一个表里了。
勾选开发工具,在要输出的表下,点查看代码
在窗口输入以下代码:
Sub a()
For Each sh In Sheets
k = k + 1
Cells(k, 1) = sh.Name
Next
End Sub
然后点运行
工作表的名称就拷贝到一个表里了。