定義工作表名稱取決於變量

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