定义工作表名称取决于变量(Define worksheet name depends on variable)

定义工作表名称取决于变量(Define worksheet name depends on variable) 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。 你能帮我吗？

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

Here I want to define sheetName depends on variable "i". For example, when i = 1, name should be SheetName1 . Can u help me?

最满意答案

这是一个很好的方法：

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 。

This is a good way to do it:

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

What I have used:

You are speaking about Worksheets, but you are using Sheets. There is a difference between these two. Sheets include Worksheets and Charts.