如何在 Excel 中根据单元格值重命名工作表?

ms excelmicrosoft technologiesadvanced excel function

如果您经常处理包含大量工作表的大型 Excel 电子表格，您可能会遇到手动重命名工作表既耗时又容易出错的情况。幸亏宏和 Visual Basic for Applications (VBA)，Excel 提供了一个强大的解决方案，让您可以自动执行此过程。

本教程将向您展示如何创建一个简单的 VBA 脚本，该脚本可以根据每个工作表中的特定单元格值重命名工作表。这些技巧将帮助您管理包含多个工作表的 Excel 工作簿，同时节省您的宝贵时间并降低出错的可能性。

根据单元格值重命名工作表

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来学习如何在 Excel 中根据单元格值重命名工作表。

步骤 1

假设有一个 Excel 工作簿。

首先，选择包含名称的单元格，然后右键单击工作表名称并选择"查看代码"以打开 VBA 应用程序。

选择单元格 > 右键单击 > 查看代码。

步骤 2

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

插入 > 模块 > 复制。

代码

Sub RenameSheet()
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
   xName = xWs.Range(xRngAddress).Value
   If xName <> "" Then
      xInt = 0
      Set xSSh = Nothing
      Set xSSh = Worksheets(xName)
      While Not (xSSh Is Nothing)
         Set xSSh = Nothing
         Set xSSh = Worksheets(xName & "(" & xInt & ")")
         xInt = xInt + 1
      Wend
      If xInt = 0 Then
         xWs.Name = xName
      Else
         If xWs.Name <> xName Then
            xWs.Name = xName & "(" & xInt & ")"
         End If
      End If
   End If
Next
Application.ScreenUpdating = True
End Sub