定义工作表名称取决于变量

Question

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

这里我想定义sheetName取决于变量“i”。 例如，当i = 1时，name应为SheetName1。 你能帮我吗？

Answer 1

而不是"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

Answer 2

这是一个很好的方法：

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 。