如何在 Excel 中重命名多个工作表？

Microsoft Excel 是一款强大且流行的电子表格程序，使用户能够有效地组织、分析和处理数据。在使用大型 Excel 电子表格时，通常使用多个工作表来表示不同的数据集、报表或分析结果。重命名它们取决于清晰度、组织性和对工作表内容的更好理解。

在本文中，我们将逐步引导您完成在 Excel 中重命名多个工作表的步骤。无论您希望添加更具描述性的标题、更正错误还是仅仅重新组织您的工作簿，学习此技能都将使您更熟练地正确管理您的数据。

重命名多个工作表

这里我们将首先创建一个 VBA 模块，然后运行该模块并为其命名以完成任务。因此，让我们来看一个简单的过程，学习如何在 Excel 中重命名多个工作表。

步骤 1

考虑任何您有多个工作表的 Excel 工作簿。

首先，右键单击工作表名称，然后选择“查看代码”以打开 VBA 应用程序。

右键点击 > 查看代码。

步骤 2

然后单击“插入”，选择“模块”，然后将以下代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub ChangeWorkSheetName()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Rename Multiple Worksheets"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
   Application.Sheets(i).Name = newName & i
Next
End Sub