Excel使您可以通过多种不同方式创建新的工作表。如果要创建一个新的工作表并一步一步将其命名，该怎么办？最简单的方法是使用宏。下面是一个宏的示例，该宏将要求一个名称，然后创建一个工作表并为该工作表提供所提供的名称。

Sub AddNameNewSheet1()

Dim Newname As String     Newname = InputBox("Name for new worksheet?")

If Newname <> "" Then         Sheets.Add Type:=xlWorksheet         ActiveSheet.Name = Newname     End If End Sub

只要用户输入Excel标准认为“合法”的工作表名称，此宏就可以正常工作。如果Excel不接受新名称，则仍会添加工作表，但不会按预期重命名。

一个更健壮的宏将在命名工作表时预见可能的错误。下面的示例代码将添加工作表，但是如果提供的工作表名称不正确，则会不断询问工作表名称。

Sub AddNameNewSheet2()

Dim CurrentSheetName As String

'Remember where we started     CurrentSheetName = ActiveSheet.Name

'Add New Sheet     Sheets.Add

'Make sure the name is valid     On Error Resume Next

'Get the new name      ActiveSheet.Name = InputBox("Name for new worksheet?")



'Keep asking for name if name is invalid     Do Until Err.Number = 0         Err.Clear         ActiveSheet.Name = InputBox("Try Again!" _           & vbCrLf & "Invalid Name or Name Already Exists" _           & vbCrLf & "Please name the New Sheet")

Loop     On Error GoTo 0

'Go back to where you started     Sheets(CurrentSheetName).Select End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（10846）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

使用宏创建工作表。