VBA命名工作表，直接用worksheets(需要改名的工作表的索引号或名称).name即可
本工作表名，直接用Thisworkbook.name可以获得
故要实现题目中命名工作表的要求，可以采用下面的代码实现——
Sub ReName()
For i = 1 To Worksheets.Count
Worksheets(i).Name = ThisWorkbook.Name & "-" & i
Next
End Sub
Sub myName()
For i = 1 To Worksheets.Count
Worksheets(i).Name = ThisWorkbook.Name & "-" & i
Next
End Sub
Sub ge()
Dim i&, x&
i = Sheets.Count
For x = 1 To i
Worksheets(x).Name = "VBA-" & x
Next x
End Sub
运行此宏，所有工作表为按您的要求实现
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024