如何在 Excel 中根据列表创建工作表名称

ms exceladvanced excel functionmicrosoft technologies更新于 2024/9/23 16:12:17

Excel 是一款功能强大的电子表格程序，它提供了丰富的功能来帮助用户有效地组织和分析数据。在单个电子表格中生成多个工作表就是其中一项功能。虽然 Excel 提供了标准的工作表名称，例如 Sheet1、Sheet2 等，但为这些工作表指定更相关、更具描述性的名称通常会更有优势。

在本教程中，我们将介绍一种使用值列表为特定 Excel 工作表命名的快速高效方法。无论您是在处理个人项目、领导团队还是处理复杂的数据集，清晰定义的工作表标题都可以显著提高 Excel 工作簿的实用性和可访问性。完成本课程后，您将掌握根据需要动态生成工作表名称所需的知识和能力。那么，让我们开始学习如何使用列表在 Excel 中自定义工作表名称吧!

在 Excel 中通过列表创建工作表名称

在这里，我们将首先创建一个 VBA 模块，然后选择单元格范围来完成任务。让我们通过一个简单的过程来学习如何在 Excel 中通过列表创建工作表名称。

步骤 1

假设您有一个包含名称列表的 Excel 工作表，如下图所示:

首先，使用 Alt + F11 打开 VBA 应用程序。

步骤 2

然后，点击"插入"，选择"模块"，并将以下代码复制到文本框中。

插入 > 模块 > 复制。

示例

Sub CreateSheetsFromAList()
    Dim Rg As Range
    Dim Rg1 As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Select a range:", "Create Sheets List", , , , , , 8)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        If Rg1 <> "" Then
            Call Sheets.Add(, Sheets(Sheets.Count))
            Sheets(Sheets.Count).Name = Rg1.Value
        End If
    Next
End Sub