Question

我想在第一个工作表的列表中创建新的工作表。我通常将此工作表称为“封面”或“夏日”

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值标记第二个工作表等。它还将我的“封面”或“夏季”工作表移动到工作表选项卡列表的末尾。

如何在现有工作表之后而不是之前添加新工作表？

Answer 1

试试这个

Sheets.Add（After：= Sheets（Sheets.Count））。Name = cell

以列表中显示的相同顺序创建新工作表

1 个答案: