Question

有没有简便方式使Excel表中某工作表的名称等于某单元格的值

有没有简便方式使Excel工作簿中某工作表的名称等于某单元格的值，如一个工作簿有50个表格 每个表格中的B2都是某个人的姓名，可不可快捷的将这张表的名称命名为B2中的姓名？

Answer 1

在工作表标签上击右键，查看代码。出来VBA窗口

在VBA窗口菜单---插入----模块

在左侧找到模块1，双击模块1，在右侧模块代码窗口中粘贴以下代码

然后关掉VBA窗口，Alt+F8运行代码中的宏，就行了。

Sub 重命名工作表()
Dim sH As Worksheet
For Each sH In Worksheets
    If sH.[b2] <> "" Then
    sH.Name = sH.[b2]
    End If
Next
End Sub

追问

另：不是所有工作表都是这样命名 也就中间几十张 如sheet5：sheet45 这样子

追答

扣我

一五九六三九七零

Answer 2

按ALT+F11在右边写入代码

Sub Sh_Name()
On Error Resume Next
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Name = sh.[b2]
Next
End Sub

然后运行

Answer 3

除了用VBA
没有其他办法

追问

可以说一下visual basic具体要编辑的内容么

Answer 4

可以通过VBA编程实现，好吧，当我没说