按下ATL+F11,菜单百:插入-模块,复制下度面代码,知然后按F5运行道。会在最前面加回张总表,显示工作答表名称。
Sub AAA()
Sheets.Add bEFORE:=Sheets(1)
For X = 2 To Sheets.Count
Cells(X - 1, 1) = Sheets(X).Name
Next
End Sub
Excel统计所有的sheet名称
最新推荐文章于 2024-06-24 08:40:14 发布
按下ATL+F11,菜单百:插入-模块,复制下度面代码,知然后按F5运行道。会在最前面加回张总表,显示工作答表名称。
Sub AAA()
Sheets.Add bEFORE:=Sheets(1)
For X = 2 To Sheets.Count
Cells(X - 1, 1) = Sheets(X).Name
Next
End Sub