1、打开一个工作样表,使用“alt+f11”进入vba编辑器。
2、插入一个新的模块。
3、在模块中输入一下代码:Sub Maco1() For i=1 To Sheets.Count Cells(i,1)=Sheets(i).Name Next End Sub。
4、总结如下。
1、打开一个工作样表,使用“alt+f11”进入vba编辑器。
2、插入一个新的模块。
3、在模块中输入一下代码:Sub Maco1() For i=1 To Sheets.Count Cells(i,1)=Sheets(i).Name Next End Sub。
4、总结如下。