Question

EXCEL工作簿的名称与第一个工作表的名称如何自由转换并一致？

EXCEL工作簿的名称与第一个工作表的名称一致，
当工作簿改名时，第一个工作表名也一起改并相同，
反之亦然

Answer 1

使用VBA即可。每当打开工作簿、另存工作簿均检查工作表名称。不相等则赋值。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets(1).Name = ThisWorkbook.Name
End Sub

Private Sub Workbook_Open()
Worksheets(1).Name = ThisWorkbook.Name
End Sub

追问

不是很明白，具体要怎么操作？

追答

使用的是VBA。
alt+F11>双击左侧栏中thisworkbook>复制粘贴代码到右侧代码栏内。