定义工作表名称取决于变量(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)" NextHere 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 SubWhat 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.更多推荐
发布评论