1、电脑打开Excel表格。
2、按Alt+F11进入VBA。
3、进入VBA后,点击插入模块。
4、点击插入模块后,输入代码
Sub m()
For Each sh In Sheets
k = k + 1
Cells(k, 1) = sh.Name
Next
End Sub
然后点击运行。
5、点击运行后,所有sheet名称就都提取出来了。
1、电脑打开Excel表格。
2、按Alt+F11进入VBA。
3、进入VBA后,点击插入模块。
4、点击插入模块后,输入代码
Sub m()
For Each sh In Sheets
k = k + 1
Cells(k, 1) = sh.Name
Next
End Sub
然后点击运行。
5、点击运行后,所有sheet名称就都提取出来了。