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

Question

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

这里我想定义sheetName取决于变量“我”。例如，当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。这两者之间有区别。包括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