我想从我的第一个工作表中的列表创建新的工作表 . 我通常将此工作表称为“封面”或“夏日”
Sub CreateSheets()
Dim rng As Range
Dim cell As Range
On Error GoTo Errorhandling
Set rng = Application.InputBox(Prompt:="Select cell range:", _
Title:="Create sheets", _
Default:=Selection.Address, Type:=8)
For Each cell In rng
If cell <> "" Then
Sheets.Add.Name = cell
End If
Next cell
Errorhandling:
End Sub
这使得新工作表反向 . 说我的选择是单元格C1到C10 . 它将使用C10值标记第一个新工作表,使用C9值标记第二个工作表等 . 它还将我的“封面”或“夏季”工作表移动到工作表选项卡列表的末尾 .
如何在现有工作表之后而不是之前添加新工作表?
1 回答
试试这个
Sheets.Add(After:= Sheets(Sheets.Count)) . Name = cell