定义工作表名称取决于variables

For i = 1 To n Sheets(2).Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "SheetName(i)" Next 

在这里我想定义sheetName取决于variables“我”。 例如，当i = 1时，名称应该是SheetName1。 你能帮我吗？

Answer 1

这是一个很好的方法来做到这一点：

 Option Explicit Public Sub TestMe() Dim i As Long Dim n As Long: n = Worksheets.Count For i = 1 To n Worksheets(i).Copy After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).name = "SheetName" & i Next i End Sub 

我用过的东西：

• 您正在谈论Worksheets ，但您正在使用工作Sheets 。 这两者有区别。 Sheets包括Worksheets和Charts 。

Answer 2

而不是"SheetName(i)"使用"SheetName" & i" ，试试这个：

 Sub Demo() For i = 1 To n Sheets(2).Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "SheetName" & i Next i End Sub