Table of contents
这篇文章为您提供了以下问题的答案 如何在Excel中添加一个带有名称的工作表 VBA 如果你正在寻找这种独特的技巧，你就来对地方了。 在这里，我们将讨论 6 简单的&在Excel中添加带有名称的工作表的成熟方法 VBA .
下载实践工作手册
你可以下载以下Excel工作簿，以便更好地理解和自己练习。
添加带有名称的工作表的VBA代码
我们将使用 床单对象 在Excel中添加一个工作表。 VBA 添加一个工作表的代码，其名称与下面一样。
表.添加（[之前]、[之后]、[计数]、[类型]）。 之前。 这是可选的，它在一个特定的工作表之前添加一个新的工作表。
之后。 这也是可选的。 它在特定的工作表之后添加一个新的工作表。
计。 这也是一个可选的参数。 它表示要增加的张数。
类型。 它也是可选的，它指定了工作表的类型。 这里，默认值是 xl工作表 .
在Excel VBA中添加带有名称的工作表的6种不同方法
在Excel中，我们可以用添加的方式添加一个新的工作表 ⊕ 你有没有想过在Excel中自动完成同样的任务？ 不用再想了，因为 VBA 涵盖了你。
这里我们有一个工作表，名为 销售报告 它包含了 每日销售报告 栏目中的 "某食堂"。 B , C 和 D ，有的名字是 销售代表 , 项目 ，以及 数量 分别是。
在这里，我们将在这个工作簿的帮助下添加其他工作表。 VBA宏 .
在这里，我们使用了 微软Excel 365 版本，你可以根据你的方便使用任何其他版本。
1.在Excel VBA中添加带有名称的工作表
在我们的第一个方法中，我们将添加一个表单，其名称来自于 用户输入 如果你想学习，请遵循这些简单的步骤。
📌 步骤。
- 在最开始的时候，去到 开发商 标签。
- 第二，选择 视觉基础 关于 编码 组。
- 或者，按 ALT + F11 来完成同样的任务。
请注意。 请务必按 缩写：ALT 的左边的键。 空白栏 如果你使用了其他的""，该操作就不会执行。 ALT 钥匙。
- 瞬间， 微软Visual Basic应用程序 窗口打开。
- 后来，转移到 插入 标签。
- 然后，选择 模块 从选项中选择。
- 目前，它打开的代码是 模块 .
- 之后，在以下代码中写上 模块 .
Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Please enter sheet name", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 代码分解
- 首先，我们在调用子程序时，是以 有名字的表格 .
- 然后，我们定义变量类型。
- 后来，我们增加了 出错时恢复下一步 语句。 这将忽略任何错误。
- 之后，我们用 输入框 来从用户那里获得工作表的名称。 此外，我们还将文本字符串从 输入框 进入 片材名称 变量。
- 接下来，如果 片材名称 是空的，那么代码就不会继续。
- 最后，我们在使用 添加.名称 方法来命名新创建的工作表。 这里，该名称将与 片材名称 变量。
- 此刻，按 运行 (⏵) 相反，你可以按 F5 在你的键盘上。
- 突然间，它打开了一个输入框。
- 在这里，输入新工作表的名称。 在本例中，我们写道 盈利 在盒子里。
- 随后，点击 认可 .
- 因此，我们的代码将执行，它将添加一个名为 盈利 .
请注意。 我们没有提到我们的工作表的任何位置。 默认情况下，它被放在活动表的前面。
阅读更多。 Excel VBA将工作表添加到另一个工作簿（3个方便的例子）。
2.应用Excel VBA在特定工作表前添加带有名称的工作表
在我们的第二种方法中，我们将在一个特定的工作表之前添加一个工作表的名称。 让我们一步一步地探索这个过程。
📌 步骤。
- 首先，调出代码 模块 窗口，如图所示 方法一 .
- 其次，将以下代码写入其中。
Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Sales Report").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub 代码分解
- 首先，我们在调用子程序时，是以 在特定表格之前添加表格 .
- 然后，我们激活 销售报告 这将确保如果我们在另一个工作表上，代码会运行。
- 接下来，我们要使用 添加.名称 方法来命名新创建的工作表。 该工作表将在被称为 "A "的工作表之前创建。 盈利 此外，我们将工作表命名为 资产负债表 .
- 之后，运行代码，如图所示 方法一 .
- 因此，它将添加一个新的工作表 资产负债表 在名为 盈利 .
阅读更多。 Excel VBA添加带有变量名称的工作表（5个理想的例子）
3.使用Excel VBA在特定工作表后添加带有名称的工作表
在这个方法中，我们将在名为 "A "的工作表后添加一个工作表。 盈利 让我们来看看这个过程的细节。
📌 步骤。
- 首先，调出代码 模块 窗口，如图所示 方法一 .
- 之后，将以下代码写入其中。
Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub 这段代码几乎类似于 方法二 .只是，这里我们使用了参数 之后 而不是 之前 因为我们想把新的工作表添加到一个特定的工作表之后。
- 之后，运行代码，如图所示 方法一 .
- 因此，它将添加一个新的工作表 仓库 在名为 盈利 .
阅读更多。 巧妇难为无米之炊--Excel VBA在不存在的情况下添加工作表（附快速操作步骤）
4.在工作簿的开始部分插入带有名称的工作表
在本节中，我们将在Excel工作簿的开始部分插入一个新工作表，使用 VBA 因此，不再拖延，让我们看看我们如何做。
📌 步骤。
- 最初，调出代码 模块 窗口，如图所示 方法一 .
- 之后，将以下代码写入其中。
Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Company Profile" End Sub 这里，我们在工作簿的第一张工作表之前添加新的工作表。 这意味着在工作簿的开始。 因此，它现在是第一张工作表。 另外，我们将工作表命名为 公司介绍 .
- 然后，运行代码，如图所示 方法一 .
- 因此，它将添加一个新的工作表 公司介绍 在工作簿的开始。
阅读更多。 Excel 宏程序：创建新工作表并重命名（3个理想范例）
5.利用Excel VBA在工作簿的末尾添加工作表
在本节中，我们将 在工作簿的最后一页之后添加一个工作表 请允许我在下面演示这个过程。
📌 步骤。
- 主要是，打开代码 模块 窗口，如图所示 方法一 .
- 其次，将以下代码粘贴到该处。
Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Income Statement" End Sub 代码分解
- 首先，我们以Sheet_End_Workbook的形式调用子过程。
- 接下来，我们要使用 添加.名称 方法来命名新创建的工作表。 我们将在工作簿的最后一个工作表之后创建这个工作表。 我们可以从以下链接获得最后一个工作表的号码 张数。 此外，我们还将该表命名为 收益表 .
- 之后，运行代码，如图所示 方法一 .
- 因此，它将添加一个新的工作表 收益表 在工作簿的最后。
阅读更多。 在Excel中使用VBA创建新工作簿并保存
6.通过Excel VBA使用单元格值介绍多个表
对于最后一种方法，我们将在工作簿中添加多个工作表的名称，从一个单元格的范围内使用Excel VBA 此外，我们将要求用户输入要取的名字的范围。 因此，让我们看看下面的步骤。
📌 步骤。
- 首先，打开代码 模块 窗口，如图所示 方法一 .
- 之后，复制以下代码并将其粘贴到该处。
Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & " to Insert Sheets", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Sales Report") .Activate For Each cc In rng Sheets.Add(After:=ActiveSheet).Name = cc.Value Next cc Application.ScreenUpdating = True End Sub 代码分解
- 首先，我们调用子过程Add_Multiple_Sheets_Using_Cell_Value。
- 然后，我们定义变量类型。
- 之后，我们用 输入框 来获取用户的数据范围。
- 第四，我们激活床单 销售报告 .
- 后来，我们用一个 对于每个下一个 循环逐一浏览选定的单元格范围。
- 接下来，我们要使用 添加.名称 我们将在活动工作表之后创建这些工作表 销售报告 的工作簿。
- 现在，运行代码，如以下所示 方法一 .
- 瞬间， 优秀 输入框打开。
- 然后，给在 B5:B9 盒子里的范围。
- 最后，点击 认可 .
- 最后，它将插入 五 表中的单元格值而命名。 B5:B9 范围。 他们都是在床单之后 销售报告 .
总结
本文提供了简单扼要的解决方案，通过Excel添加带名称的工作表 VBA 不要忘了下载 实践 文件。 谢谢你阅读这篇文章，我们希望这对你有帮助。 如果你有任何疑问或建议，请在评论区告诉我们。 请访问我们的网站 优秀 以探索更多。
