1、电脑打开Excel表格。
2、按Alt+F11进入VBA。
3、进入VBA后，点击插入模块。
4、点击插入模块后，输入代码
subm
foreachshinsheets
k=k+1
cells(k,1)=sh.name
next
endsub
然后点击运行。
5、点击运行后，所有sheet名称就都提取出来了。
1、电脑打开Excel表格。
2、按Alt+F11进入VBA。
3、进入VBA后，点击插入模块。
4、点击插入模块后，输入代码
subm
foreachshinsheets
k=k+1
cells(k,1)=sh.name
next
endsub
然后点击运行。
5、点击运行后，所有sheet名称就都提取出来了。
