如何在Excel中将工作表标签名称设置为等于单元格的值？

有时，您可能需要将工作表重命名为与特定单元格值匹配。在本文中，我们将向您展示在Excel中使工作表标签名称等于单元格值的方法。

使用VBA代码将工作表标签名称设置为等于单元格的值
使用Kutools for Excel将工作表标签名称设置为等于单元格的值

使用VBA代码将工作表标签名称设置为等于单元格的值

使用以下VBA代码，您可以自动将工作表标签名称设置为等于单元格的值。

1. 右键单击您要将工作表名称设置为等于单元格值的工作表标签，然后从右键菜单中点击“查看代码”。见截图：

2. 将以下代码复制并粘贴到代码窗口中，然后同时按“Alt” + “Q”键关闭Microsoft Visual Basic for Applications窗口。

VBA代码：使工作表标签等于单元格值

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

注意：在代码中，A1是包含您需要用作工作表名称的值的单元格。您可以根据需要更改它。

从现在开始，当单元格A1中的值发生变化时，工作表标签名称将自动更新以匹配它。

使用Kutools for Excel将工作表标签名称设置为等于单元格的值

在本节中，我们向您介绍“Kutools for Excel”的“批量重命名工作表”工具。使用此工具，您可以轻松地根据Excel中特定单元格的值重命名工作表。

1. 点击“Kutools Plus”>“工作表”>“批量重命名工作表”。见截图：

2. 在“批量重命名工作表”对话框中，您需要执行以下操作。

您可以看到所选工作表立即按照指定区域的值被重命名，如下图所示。

备注：

使用Kutools for Excel将工作表标签名称设置为等于单元格的值